home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs49.d81 / hack10b.sfx / issue10b
Text File  |  1990-02-12  |  81KB  |  1,995 lines
  1. ╔N THE CODE, THERE ARE SOME COMMENTS THAT DOCUMENT THE VIDEO TIMING,
  2. LIKE THIS ONE:
  3.  
  4. ;3S4S5S6S7SRRRRRGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG--▄▄0S1S2S ╨HI-1 ╓╔├-╔╔
  5. ;SSSSSSSSSS                                               ▄▄SSSSSS ╨HI-2 ╓╔├-╔╔
  6. ;==========XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX▄▄╪╪╪====== ╨HI-2 6510
  7. ;          ^ NOW WE ARE HERE
  8.  
  9. ╘HE TWO VERTICAL BARS "▄" DENOTE OPTIONAL CYCLES.  ╧N ╨┴╠-┬ SYSTEMS
  10. (63 CYCLES PER LINE), THEY ARE NOT PRESENT.  ╧N 6567╥56┴, WHICH HAS 64
  11. CYCLES PER LINE, THERE IS ONE ADDITIONAL CYCLE ON THIS POSITION, AND
  12. THE 6567╥8 HAS TWO ADDITIONAL CYCLES THERE.
  13.  
  14. ╘HE NUMBERS 0 THROUGH 7 ARE SPRITE POINTER FETCHES (FROM THE END OF
  15. THE CHARACTER MATRIX, E.G. THE TEXT SCREEN), THE "S" CHARACTERS DENOTE
  16. SPRITE IMAGE FETCHES, THE "R"S ARE MEMORY REFRESH, AND THE "G" ARE
  17. GRAPHICS FETCHES.  ╘HE TWO IDLE VIDEO CHIP CYCLES ARE MARKED WITH "-".
  18. ╧N THE PROCESSOR TIMING LINE, THE "=" SIGNS SHOW HALTED ├╨╒, "X" MEANS
  19. FREE BUS, AND "╪" MEANS THAT THE PROCESSOR WILL BE HALTED AT ONCE,
  20. UNLESS IT IS PERFORMING WRITE CYCLES.
  21.  
  22.   PROCESSOR 6502
  23.  
  24. ; ╙ELECT THE VIDEO TIMING (PROCESSOR CLOCK CYCLES PER RASTER LINE)
  25. ├┘├╠┼╙ = 65     ; 6567╥8 AND ABOVE, ╬╘╙├-═
  26. ;├┘├╠┼╙ = 64    ; 6567╥5 6┴, ╬╘╙├-═
  27. ;├┘├╠┼╙ = 63    ; 6569 (ALL REVISIONS), ╨┴╠-┬
  28.  
  29. CINV = $314
  30. CNMI = $318
  31. RASTER = 52     ; START OF RASTER INTERRUPT
  32. M = $FB         ; ZERO PAGE VARIABLE
  33.  
  34.   .ORG $801
  35. BASIC:
  36.   .WORD 0$      ; LINK TO NEXT LINE
  37.   .WORD 1995    ; LINE NUMBER
  38.   .BYTE $9┼     ; ╙┘╙ TOKEN
  39.  
  40. ; ╙┘╙ DIGITS
  41.  
  42.   .IF (* + 8) / 10000
  43.   .BYTE $30 + (* + 8) / 10000
  44.   .ENDIF
  45.   .IF (* + 7) / 1000
  46.   .BYTE $30 + (* + 7) % 10000 / 1000
  47.   .ENDIF
  48.   .IF (* + 6) / 100
  49.   .BYTE $30 + (* + 6) % 1000 / 100
  50.   .ENDIF
  51.   .IF (* + 5) / 10
  52.   .BYTE $30 + (* + 5) % 100 / 10
  53.   .ENDIF
  54.   .BYTE $30 + (* + 4) % 10
  55.  
  56. 0$:
  57.   .BYTE 0,0,0   ; END OF ┬┴╙╔├ PROGRAM
  58.  
  59. START:
  60.   JMP INSTALL
  61.   JMP DEINSTALL
  62.  
  63. INSTALL:        ; INSTALL THE RASTER ROUTINE
  64.   JSR RESTORE   ; ─ISABLE THE ╥ESTORE KEY (DISABLE ╬═╔ INTERRUPTS)
  65. CHECKIRQ:
  66.   LDA CINV      ; CHECK THE ORIGINAL ╔╥╤ VECTOR
  67.   LDX CINV+1    ; (TO AVOID MULTIPLE INSTALLATION)
  68.   CMP #<IRQ1
  69.   BNE IRQINIT
  70.   CPX #>IRQ1
  71.   BEQ SKIPINIT
  72. IRQINIT:
  73.   SEI
  74.   STA OLDIRQ    ; STORE THE OLD ╔╥╤ VECTOR
  75.   STX OLDIRQ+1
  76.   LDA #<IRQ1
  77.   LDX #>IRQ1
  78.   STA CINV      ; SET THE NEW INTERRUPT VECTOR
  79.   STX CINV+1
  80. SKIPINIT:
  81.   LDA #$1B
  82.   STA $D011     ; SET THE RASTER INTERRUPT LOCATION
  83.   LDA #RASTER
  84.   STA $D012
  85.   LDX #$E
  86.   CLC
  87.   ADC #3
  88.   TAY
  89.   LDA #0
  90.   STA M
  91. 0$:
  92.   LDA M
  93.   STA $D000,X   ; SET THE SPRITE ╪
  94.   ADC #24
  95.   STA M
  96.   TYA
  97.   STA $D001,X   ; AND ┘ COORDINATES
  98.   DEX
  99.   DEX
  100.   BPL 0$
  101.   LDA #$7F
  102.   STA $DC0D     ; DISABLE TIMER INTERRUPTS
  103.   STA $DD0D
  104.   LDX #1
  105.   STX $D01A     ; ENABLE RASTER INTERRUPT
  106.   LDA $DC0D     ; ACKNOWLEDGE ├╔┴ INTERRUPTS
  107.   LSR $D019     ; AND VIDEO INTERRUPTS
  108.   LDY #$FF
  109.   STY $D015     ; TURN ON ALL SPRITES
  110.   CLI
  111.   RTS
  112.  
  113. DEINSTALL:
  114.   SEI           ; DISABLE INTERRUPTS
  115.   LDA #$1B
  116.   STA $D011     ; RESTORE TEXT SCREEN MODE
  117.   LDA #$81
  118.   STA $DC0D     ; ENABLE ╘IMER ┴ INTERRUPTS ON ├╔┴ 1
  119.   LDA #0
  120.   STA $D01A     ; DISABLE VIDEO INTERRUPTS
  121.   LDA OLDIRQ
  122.   STA CINV      ; RESTORE OLD ╔╥╤ VECTOR
  123.   LDA OLDIRQ+1
  124.   STA CINV+1
  125.   BIT $DD0D     ; RE-ENABLE ╬═╔ INTERRUPTS
  126.   CLI
  127.   RTS
  128.  
  129. ; ┴UXILIARY RASTER INTERRUPT (FOR SYNCRONIZATION)
  130. IRQ1:
  131. ; IRQ (EVENT)   ; > 7 + AT LEAST 2 CYCLES OF LAST INSTRUCTION (9 TO 16 TOTAL)
  132. ; PHA           ; 3
  133. ; TXA           ; 2
  134. ; PHA           ; 3
  135. ; TYA           ; 2
  136. ; PHA           ; 3
  137. ; TSX           ; 2
  138. ; LDA $0104,X   ; 4
  139. ; AND #XX       ; 2
  140. ; BEQ           ; 3
  141. ; JMP ($314)    ; 5
  142.                 ; ---
  143.                 ; 38 TO 45 CYCLES DELAY AT THIS STAGE
  144.   LDA #<IRQ2
  145.   STA CINV
  146.   LDA #>IRQ2
  147.   STA CINV+1
  148.   NOP           ; WASTE AT LEAST 12 CYCLES
  149.   NOP           ; (UP TO 64 CYCLES DELAY ALLOWED HERE)
  150.   NOP
  151.   NOP
  152.   NOP
  153.   NOP
  154.   INC $D012     ; ┴T THIS STAGE, $D012 HAS ALREADY BEEN INCREMENTED BY ONE.
  155.   LDA #1
  156.   STA $D019     ; ACKNOWLEDGE THE FIRST RASTER INTERRUPT
  157.   CLI           ; ENABLE INTERRUPTS (THE SECOND INTERRUPT CAN NOW OCCUR)
  158.   LDY #9
  159.   DEY
  160.   BNE *-1       ; DELAY
  161.   NOP           ; ╘HE SECOND INTERRUPT WILL OCCUR WHILE EXECUTING THESE
  162.   NOP           ; TWO-CYCLE INSTRUCTIONS.
  163.   NOP
  164.   NOP
  165.   NOP
  166. OLDIRQ = * + 1  ; ╨LACEHOLDER FOR SELF-MODIFYING CODE
  167.   JMP *         ; ╥ETURN TO THE ORIGINAL INTERRUPT
  168.  
  169. ; ═AIN RASTER INTERRUPT
  170. IRQ2:
  171. ; IRQ (EVENT)   ; 7 + 2 OR 3 CYCLES OF LAST INSTRUCTION (9 OR 10 TOTAL)
  172. ; PHA           ; 3
  173. ; TXA           ; 2
  174. ; PHA           ; 3
  175. ; TYA           ; 2
  176. ; PHA           ; 3
  177. ; TSX           ; 2
  178. ; LDA $0104,X   ; 4
  179. ; AND #XX       ; 2
  180. ; BEQ           ; 3
  181. ; JMP (CINV)    ; 5
  182.                 ; ---
  183.                 ; 38 OR 39 CYCLES DELAY AT THIS STAGE
  184.   LDA #<IRQ1
  185.   STA CINV
  186.   LDA #>IRQ1
  187.   STA CINV+1
  188.   LDX $D012
  189.   NOP
  190. #IF ├┘├╠┼╙ - 63
  191. #IF ├┘├╠┼╙ - 64
  192.   NOP           ; 6567╥8, 65 CYCLES/LINE
  193.   BIT $24
  194. #ELSE
  195.   NOP           ; 6567╥56┴, 64 CYCLES/LINE
  196.   NOP
  197. #ENDIF
  198. #ELSE
  199.   BIT $24       ; 6569, 63 CYCLES/LINE
  200. #ENDIF
  201.   CPX $D012     ; ╘HE COMPARISON CYCLE IS EXECUTED ├┘├╠┼╙ OR ├┘├╠┼╙+1 CYCLES
  202.                 ; AFTER THE INTERRUPT HAS OCCURRED.
  203.   BEQ *+2       ; ─ELAY BY ONE CYCLE IF $D012 HADN'T CHANGED.
  204.                 ; ╬OW EXACTLY ├┘├╠┼╙+3 CYCLES HAVE PASSED SINCE THE INTERRUPT.
  205.   DEX
  206.   DEX
  207.   STX $D012     ; RESTORE ORIGINAL RASTER INTERRUPT POSITION
  208.   LDX #1
  209.   STX $D019     ; ACKNOWLEDGE THE RASTER INTERRUPT
  210.   LDX #2
  211.   DEX
  212.   BNE *-1
  213.   NOP
  214.   NOP
  215.   LDA #20       ; SET THE AMOUNT OF RASTER LINES-1 FOR THE LOOP
  216.   STA M
  217.   LDX #$C8
  218. IRQLOOP:
  219.   LDY #2
  220.   DEY
  221.   BNE *-1       ; DELAY
  222.   DEC $D016     ; NARROW THE SCREEN (EXACT TIMING REQUIRED)
  223. ;3S4S5S6S7SRRRRRGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG--▄▄0S1S2S ╨HI-1 ╓╔├-╔╔
  224. ;SSSSSSSSSS                                               ▄▄SSSSSS ╨HI-2 ╓╔├-╔╔
  225. ;==========XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX▄▄╪╪╪====== ╨HI-2 6510
  226. ;          ^ NOW WE ARE HERE
  227.   STX $D016     ; EXPAND THE SCREEN
  228. #IF ├┘├╠┼╙ - 63
  229. #IF ├┘├╠┼╙ - 64
  230.   BIT $24       ; 6567╥8
  231. #ELSE
  232.   NOP           ; 6567╥56┴
  233. #ENDIF
  234. #ELSE
  235.   NOP           ; 6569
  236. #ENDIF
  237.   DEC M
  238.   BMI ENDIRQ
  239.   CLC
  240.   LDA $D011
  241.   SBC $D012
  242.   AND #7
  243.   BNE IRQLOOP   ; ╘HIS INSTRUCTION TAKES 4 CYCLES INSTEAD OF 3,
  244.                 ; BECAUSE THE PAGE BOUNDARY IS CROSSED.
  245. BADLINE:
  246.   DEC M
  247.   NOP
  248.   NOP
  249.   NOP
  250.   NOP
  251.   DEC $D016
  252. ;3S4S5S6S7SRRRRRGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG--▄▄0S1S2S ╨HI-1 ╓╔├-╔╔
  253. ;SSSSSSSSSS    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC   ▄▄SSSSSS ╨HI-2 ╓╔├-╔╔
  254. ;==========X╪╪╪========================================▄▄***====== ╨HI-2 6510
  255. ;          ^ WE ARE HERE
  256.   STX $D016
  257. ;3S4S5S6S7SRRRRRGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG--▄▄0S1S2S ╨HI-1 ╓╔├-╔╔
  258. ;SSSSSSSSSS                                               ▄▄SSSSSS ╨HI-2 ╓╔├-╔╔
  259. ;==========XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX▄▄╪╪╪====== ╨HI-2 6510
  260. ;          ^ ^^- WE ARE HERE (6569)
  261. ;          ▄ \- OR HERE (6567╥56┴)
  262. ;          \- OR HERE (6567╥8)
  263.   LDY #2
  264.   DEY
  265.   BNE *-1
  266.   NOP
  267.   NOP
  268. #IF ├┘├╠┼╙ - 63
  269. #IF ├┘├╠┼╙ - 64
  270.   NOP           ; 6567╥8, 65 CYCLES/LINE
  271.   NOP
  272.   NOP
  273. #ELSE
  274.   BIT $24       ; 6567╥56┴, 64 CYCLES/LINE
  275. #ENDIF
  276. #ELSE
  277.   NOP           ; 6569, 63 CYCLES/LINE
  278. #ENDIF
  279.   DEC M
  280.   BPL IRQLOOP   ; ╘HIS IS A 4-CYCLE BRANCH (PAGE BOUNDARY CROSSED)
  281. ENDIRQ:
  282.   JMP $EA81     ; RETURN TO THE AUXILIARY RASTER INTERRUPT
  283.  
  284. RESTORE:        ; DISABLE THE ╥ESTORE KEY
  285.   LDA CNMI
  286.   LDY CNMI+1
  287.   PHA
  288.   LDA #<NMI     ; ╙ET THE ╬═╔ VECTOR
  289.   STA CNMI
  290.   LDA #>NMI
  291.   STA CNMI+1
  292.   LDX #$81
  293.   STX $DD0D     ; ┼NABLE ├╔┴ 2 ╘IMER ┴ INTERRUPT
  294.   LDX #0
  295.   STX $DD05
  296.   INX
  297.   STX $DD04     ; ╨REPARE ╘IMER ┴ TO COUNT FROM 1 TO 0.
  298.   LDX #$DD
  299.   STX $DD0E     ; ├AUSE AN INTERRUPT.
  300. NMI = * + 1
  301.   LDA #$40      ; ╥╘╔ PLACEHOLDER
  302.   PLA
  303.   STA CNMI
  304.   STY CNMI+1    ; RESTORE ORIGINAL ╬═╔ VECTOR (ALTHOUGH IT WON'T BE USED)
  305.   RTS
  306.  
  307.  
  308. ┬INARIES
  309.  
  310. ╚ERE ARE THE PROGRAMS IN UUENCODED FORMAT.  ╞IRST THE ╓╔├-20 PROGRAMS:
  311.  
  312. ├OLOR BOXES FOR THE ╓╔├-20, ╬╘╙├-═ VERSION (PROBABLY DISTORTED DISPLAY):
  313.  
  314. BEGIN 644 COPPER.6560
  315. ═└1└*$,╠'╟├0╤,#─└└└"╔?╪╘╬─8╘═─8╘>─:(<[└20╘/╬@"20─╦@20┬┬0─)"2┬
  316. ═%<╦0_<╘$─+└└┬-#╦╩4"-&┘&-*┘&╔0┌)"├1:1├2:1╚└:(╘/╘─)(╪┼─:└*┬-#]
  317. ═├┴61╩6╥-%└.╔$(╘5└┌╟└├2┌18*╘4─<─(─└1(:"─'╥020!"0─*0/)└╦└└╠└!*
  318. ═╠└"@$*╘/─*╔)]╪╘/─(╪/─(╘/─(╪/─(╘/─(╪/─(╘/─(╪/─(╘/─(╪/─(╘/─(╪/
  319. ,─$┴╚)"3╩┬-#43+_╩
  320. └
  321. END
  322.  
  323.  
  324. ├OLOR BOXES FOR THE ╓╔├-20, ╨┴╠-┬ VERSION:
  325.  
  326. BEGIN 644 COPPER.6561
  327. ═└1└*$,╠'╟├0╤,#─└└└"╔?╪╘╬─8╘═─8╘>─:(<[└20╘/╬@"20─╦@20┬┬0─╚┴├*
  328. ═╘/╫-!)"╨└(├0[:┼└├1╬1├2╬1╩8:┬5╚╘6─8╘╞─:└'┬-#]┌╬╩.)9&@"╚├0_8╪5
  329. ═─:┼╩├10#╩1"-%0.╔╨(╘╬─6"═%)')")└$2&@╔!\─$─└0─)"─#╥0*╨└+└└2╦└└
  330. ═╚!"═#┘"╩2?>-#┘".#┘"-#┘".#┘"-#┘".#┘"-#┘".#┘"-#┘".#┘"-#┘".#┘!(
  331. +:$┴╚┌╬╩(╘--,╧^╩.
  332. └
  333. END
  334.  
  335.  
  336. ╥EMOVED SIDEBORDERS WITH 8 SPRITES AND BAD LINES, ╨┴╠-┬ VERSION:
  337.  
  338. BEGIN 644 RASTER.63
  339. ═└0@*",╠'╟├(╨-├$└└└!,$╨┴,=└@@'0╞═%└.╬%0/)┼=└$╪└├╨$7┬-╬0┬.╬@┬╔
  340. ═┼:((├10#├┴4#╩1╬-$="╔-(╘2╘*(.&&─#╩*─└┴?╬┼^┘╘└╘&─8┴?╬8╟0'0╥╠╚0
  341. ═[┌┼_├0╫<├0╫=╚@&.&═"═#=╤.&="@_╪╨5╘%┴@>*─;├1'0╩8&-#=╥╔└(╘:╘*╓┘
  342. ═"(╘4└┌╓┌"(╘5└╥╨-╫5┴@╩;╬-%└.╔"(╘5└^╦╩┌╬╦╩┌╬╪2╘*─!├1╟06*└)┬-#]
  343. ═┌╬╦╩┌╬╔,╬└┬╔┼8╘4└┌─(├14#╦┴+0┌┬0─[!+0\└#*╥╚╪2╘*(!├┴╟0╚@+*╘/╫╩
  344. ═┌╩─4┴?╬┬╥*└"┬-#]╙┴;0├┴;0┌╠;[,",8╦1'0[1+0*0?0┘<;[┌╬╦╩┌╠╪6╘(╪6
  345. ═╘*└"┬-#]┌╬╦╩╤╧╠0╙4╥!┌╩╘8└┌╨9└╘┬╔0╚╘8└┌─)├1─#╚╚&.#=╓┬└(╪%╫>┬.
  346. 1!-╓┬╫8╪.╫:┼└:(╘8└╪╨9└╓└8
  347. └
  348. END
  349.  
  350.  
  351. ╥EMOVED SIDEBORDERS WITH 8 SPRITES AND BAD LINES, 6567╥56┴ VERSION
  352. (VERY OLD ╬╘╙├-═ ├64S):
  353.  
  354. BEGIN 644 RASTER.64
  355. ═└0@*",╠'╟├(╨-├$└└└!,$╨┴,=└@@'@╞═%└.╬%0/)┼=└$╪└├╨$7┬-╬0┬.╬@┬╔
  356. ═┼:((├10#├┴4#╩1╬-$="╔-(╘2╘*(.&&─#╩*─└┴?╬┼^┘╘└╘&─8┴?╬8╟0'0╥╠╚0
  357. ═[┌┼_├0╫<├0╫=╚@&.&═"═#=╤.&="@_╪╨5╘%┴@>*─;├1'0╩8&-#=╥╔└(╘:╘*╓┘
  358. ═"(╘4└┌╓┌"(╘5└╥╨-╫5┴@╩;╬-%└.╔"(╘5└^╦╩┌╬╦╩┌╬╪2╘*─!├1╟06*└)┬-#]
  359. ═┌╬╦╩┌╬╔,╬└┬╔┼8╘4└┌─(├14#╦┴+0┌╬╦╩[!+0\└#*╥╚╪2╘*(!├┴╟0╚@+*╘/╫╩
  360. ═┌╩─4┴?╬┬╥*└"┬-#]╙┴;0├┴;0┌╠;[,"08╦1'0[1+0*0?0┘<;[┌╬╦╩┌╠╪6╘(╪6
  361. ═╘*└"┬-#]┌╬╚─),;[$,╤,@>╩═&└.╠&0-(╩4.-&└.╔"8╘9└┌*!├@╫=╚@".!=╫╚
  362. 2├@3=╚═╓.#═╓╔0&┬-&└.,&0-@
  363. └
  364. END
  365.  
  366. ╥EMOVED SIDEBORDERS WITH 8 SPRITES AND BAD LINES, 6567╥8 AND ABOVE
  367. (NOT TOO OLD ╬╘╙├-═ ├64S AND ALL ├128S)
  368.  
  369. BEGIN 644 RASTER.65
  370. ═└0@*",╠'╟├(╨-├$└└└!,$╨┴,=└@@(0╞═%└.╬%0/)┼=└$╪└├╨$7┬-╬0┬.╬@┬╔
  371. ═┼:((├10#├┴4#╩1╬-$="╔-(╘2╘*(.&&─#╩*─└┴?╬┼^┘╘└╘&─8┴?╬8╟0'0╥╠╚0
  372. ═[┌┼_├0╫<├0╫=╚@&.&═"═#=╤.&="@_╪╨5╘%┴@>*─;├1'0╩8&-#=╥╔└(╘:╘*╓┘
  373. ═"(╘4└┌╓┌"(╘5└╥╨-╫5┴@╩;╬-%└.╔"(╘5└^╦╩┌╬╦╩┌╬╪2╘*─!├1╟06*└)┬-#]
  374. ═┌╬╦╩┌╬╔,╬└┬╔┼8╘4└┌─(├14#╦┴+0┌╬╚─).╨2╘/└└╥╠╩.$═"┬└8╪9╘*("╥═#]
  375. ═┌╬╩╔%(7[╚╠┬@└╚├0_<╪6╘(╪6╘"0─╤╧╠╨)1┬═$=#═$═└╔!]#─╤╧╧╩┌╬╦╩╙┴;0
  376. ═├┴;0╚└*(╘/╫╩┌╬╦╩┌╠;[$,╔,@>╩═&└.╠&0-(╩4:-&└.╔"8╘9└┌*!├@╫=╚@".
  377. 5!=╫╚├@3=╚═╓.#═╓╔0&┬-&└.,&0-@
  378. └
  379. END
  380.  
  381.  
  382. ╘HAT WAS ALL, FOLKS!  ╔ HOPE YOU LEARNED SOMETHING FROM THIS ARTICLE.
  383. ╞EEL FREE TO E-MAIL ME AT ═ARKO.═AKELA@╚╒╘.╞╔, SHOULD ANYTHING REMAIN
  384. UNCLEAR.
  385.  
  386. ========================================================================
  387. ┴ ─IFFERENT ╨ERSPECTIVE, PART ╔╔╔
  388. BY ╙TEPHEN ╩UDD --- SJUDD@NWU.EDU    
  389.    ╟EORGE ╘AYLOR --- AA601@CFN.CS.DAL.CA
  390.  
  391.         ╫HEW!  ╫HAT A BUSY TIME IT'S BEEN -- RESEARCH TO GET DONE,
  392. CONFERENCES, CLASSES... BETWEEN GETTING THINGS DONE AND BLOWING OTHER
  393. THINGS OFF, ╔ ONE DAY REFLECTED FOR A MOMENT AND REALIZED THAT ╔ HAD
  394. THREE DAYS LEFT TO GET THE NEXT ARTICLE TOGETHER FOR ├=╚ACKING!  ╙O
  395. EVERYTHING HAS BEEN SLAPPED TOGETHER AT THE LAST MINUTE, AND ╔ HOPE
  396. YOU'LL FORGIVE ANY BUGS OR UNCLEAR CONCEPTS.
  397.                 >>> ┴╬┼├─╧╘┼ ┴╠┼╥╘ <<<
  398.         ┴ND THAT REMINDS ME: ╔ JUST GOT ╩IFFY─╧╙ AND AN ╞─-2000 DRIVE --
  399. WHAT A WONDERFUL DEVICE.  ╔ HAVE A 1.6 MEGABYTE DISK FORMATTED INTO
  400. THREE PARTITIONS.  ╘HE FIRST CONTAINS MY ═ERLIN 128 ASSEMBLER, THE
  401. SECOND IS SOME 4000 BLOCKS LARGE AND ╔ USE IT FOR ALL MY VARIOUS
  402. VERSIONS OF CODE WHILE DEBUGGING, AND THE THIRD IS MAYBE 1000 BLOCKS,
  403. AND CONTAINS ONLY FINISHED CODE -- NO MORE SWAPPING DISKS, NO MORE
  404. DELETING OLD VERSIONS THAT ╔ HOPE ╔ DON'T NEED TO MAKE ROOM ON THE
  405. DISK.  ┴LSO, WHEN ╔ INSTALLED ╩IFFY─╧╙ ╔ FOUND A SERIOUS BUG IN MY
  406. 128─ -- A CRICKET, DEAD AMONG THE ╔├'S.
  407.  
  408.         ╘HIS TIME WE WILL COVER A LOT OF GROUND WHICH ISN'T SO MUCH
  409. CUTTING-EDGE AS IT IS VERY USEFUL.  ╠ET'S FACE IT: CUBES ARE GETTING
  410. MORE THAN A LITTLE DULL.  ┴ WORTHY END GOAL IS TO HAVE A COMPLETELY
  411. GENERAL ROUTINE FOR PLOTTING A SERIES OF POLYGONS -- THAT IS, YOU SUPPLY
  412. A LIST OF (X,Y,Z) COORDINATES FROM WHICH THE PROGRAM CAN FORM A LIST OF
  413. POLYGONS.  ╘HESE POLYGONS MAY THEN BE DISPLAYED IN 2─, ROTATED, MAGNIFIED,
  414. FILLED, ETC.  ┴ND, MUCH TO MY THREE-DAY ASTONISHMENT, THAT IS EXACTLY
  415. WHAT WE ARE GOING TO DO.
  416.         ┬UT FIRST, A LITTLE EXCURSION.  ╧NE THING WE ARE OF COURSE ALWAYS
  417. THINKING ABOUT IS OPTIMIZATION POSSIBILITIES: IN THE SHOWER, WHILE
  418. SLEEPING/DREAMING, OUT ON DATES, ETC.  ╙O, WHERE TO BEGIN?  ╘HE BIGGEST
  419. CYCLE HOGS IN THE PROGRAM ARE LINE DRAWING AND FACE FILLING -- WELL,
  420. FILLING FACES IS PRETTY STRAIGHTFORWARD.  ╫HAT ABOUT LINE DRAWING?
  421.         ╫ELL, ONE DOWNER OF THE ROUTINE IS THAT EVERY SINGLE PIXEL IS
  422. PLOTTED.  ┬UT AS WE KNOW, ON A COMPUTER ANY GIVEN LINE IS MADE UP OF
  423. SEVERAL SMALLER VERTICAL AND HORIZONTAL LINES -- WOULDN'T IT BE NEAT
  424. IF WE COULD THINK OF A WAY TO PLOT THESE LINE CHUNKS ALL AT ONCE,
  425. INSTEAD OF A PIXEL AT A TIME?
  426.         ╚ECK YES IT WOULD!  ╙O HERE WE GO:
  427.         
  428. ╬EAT-O ┼NHANCED ├HUNKY ╠INE ─RAWING ╥OUTINE
  429. -------------------------------------------
  430.  
  431.         ╞IRST WE NEED TO BE IN THE RIGHT MINDFRAME.  ╠ET'S SAY YOU'RE
  432. DRAWING A LINE WHERE YOU MOVE THREE PIXELS IN X BEFORE IT'S TIME TO TAKE
  433. A STEP IN Y.  ╔NSTEAD OF PLOTTING ALL THREE PIXELS IT WOULD OF COURSE
  434. BE MUCH MORE EFFICIENT TO JUST STICK A NUMBER LIKE %00011100 IN THE
  435. DRAWING BUFFER.  ┬UT SOMEHOW WE NEED TO KEEP TRACK OF A) HOW LARGE THE
  436. CHUNK NEEDS TO BE, AND B) WHERE EXACTLY THE CHUNK IS.
  437.         ╔N THE ABOVE EXAMPLE, WE STARTED AT A PARTICULAR X-VALUE:
  438.  
  439.         %00010000
  440.  
  441. AND WE WANT TO KEEP ADDING ONES TO THE RIGHT OF THE STARTING POINT; THREE,
  442. TO BE EXACT.  ╚MMM... WE NEED TO SOMEHOW ROTATE THE STARTING BIT IN A WAY
  443. THAT LEAVES A TRAIL OF ONES BEHIND IT.  ═AYBE ROTATE AND ╧╥┴ WITH THE
  444. ORIGINAL BIT?  ┬UT WHAT HAPPENS WHEN YOU TAKE A STEP IN ┘?
  445.         ╬O, WE NEED SOMETHING FAR SNEAKIER.  ╠ET'S SAY THAT INSTEAD OF
  446. %00010000 WE START WITH
  447.  
  448.         X = %00011111
  449.  
  450. ╬OW, WITH EACH STEP IN THE X DIRECTION, WE DO AN ARITHMETIC SHIFT ON X.  ╙O
  451. AFTER ONE STEP WE HAVE
  452.  
  453.         X = %00001111
  454.  
  455. AND AFTER TWO STEPS
  456.  
  457.         X = %00000111
  458.  
  459. AND AT THE THIRD STEP OF COURSE
  460.  
  461.         X = %00000011
  462.  
  463. ╬OW IT IS TIME TO TAKE A STEP IN ┘.  ┬UT NOW LOOK: IF WE ┼╧╥ X WITH ITS
  464.  
  465. ORIGINAL VALUE XOLD = %00011111, WE GET
  466.  
  467.         X ┼╧╥ XOLD = %00011100
  468.  
  469. WHICH IS EXACTLY THE CHUNK WE WANTED.  ═OREOVER, X STILL REMEMBERS WHERE IT
  470. IS, SO WE DON'T HAVE TO DO ANYTHING SPECIAL EACH TIME A STEP IS TAKEN IN
  471. THE Y-DIRECTION.
  472.  
  473.         ╙O HERE IS THE ALGORITHM FOR DRAWING A LINE IN THE X-DIRECTION:
  474.  
  475.         INITIALIZE X, DX, ETC.
  476.         XOLD = X
  477.         TAKE A STEP IN X: ╠╙╥ ╪
  478.         HAVE WE HIT THE END OF A COLUMN?  ╔F SO, THEN PLOT AND CHECK ON Y
  479.         IS IT TIME TO TAKE A STEP IN Y?
  480.         IF NOT, TAKE ANOTHER STEP IN X
  481.         IF IT IS, THEN LET A=X ┼╧╥ XOLD
  482.                        PLOT A INTO THE BUFFER
  483.                        LET XOLD=X
  484.         KEEP ON GOING UNTIL WE'RE FINISHED
  485.  
  486.         ╘HIS SIMPLE MODIFICATION GIVES US A SUBSTANTIAL SPEED INCREASE --
  487. ON THE OLD FILLED HIRES CUBE3D PROGRAM, ╔ MEASURED A GAIN OF ONE FRAME PER
  488. SECOND.  ╬OT EARTH-SHATTERING, BUT NOT BAD EITHER!  ╫HEN FACES ARE NOT
  489. FILLED, THE DIFFERENCE IS OF COURSE MUCH MORE NOTICABLE.
  490.         ╘HERE ARE A FEW THINGS TO BE CAREFUL OF.  ╘HERE WAS A BUG IN THE
  491. OLD ROUTINE WHEN THE LINE WAS A SINGLE POINT.  ╔N THAT CASE DX=DY=0, AND
  492. THE PROGRAM WOULD DRAW A VERTICAL LINE ON THE SCREEN.  ╘HERE ARE PROBABLY
  493. SOME OTHER THINGS TO BE CAREFUL OF, BUT SINCE ╔ WROTE THIS PART OF THE
  494. CODE THREE MONTHS AGO ╔ REALLY DON'T REMEMBER ANY OF THEM!
  495.         ╘HIS TAKES CARE OF HORIZONTAL LINE CHUNKS -- WHAT ABOUT VERTICAL
  496. CHUNKS?  ╫ELL, BECAUSE OF THE WAY POINTS ARE PLOTTED THERE IS NOTHING
  497. WE CAN DO ABOUT THEM.  ┬UT, AS WE SHALL SOON SEE, IF WE USE AN ┼╧╥-BUFFER
  498. TO FILL FACES WE WILL BE FORCED TO TAKE CARE OF THE VERTICAL CHUNKS!
  499.  
  500. ╟ENERAL ╨OLYGON ╥OUTINE
  501. -----------------------
  502.  
  503.         ╬OW WE CAN BEGIN THINKING ABOUT A GENERAL POLYGON ROUTINE.  ╞IRST
  504. WE NEED A LIST OF SETS OF POINTS, WHERE EACH SET CORRESPONDS TO A
  505. POLYGON.  ╘HE FIRST NUMBER IN A SET COULD BE THE NUMBER OF (X,Y,Z) POINTS
  506. IN THAT SET, AND THE POINTS COULD THEN FOLLOW.  ╙O A TRIANGLE COULD
  507. BE GIVEN BY THE DATA SET:
  508.  
  509.         3 -1 0 0 0 1 0 1 0 0
  510.  
  511. ╘HIS WOULD BE A TRIANGLE WITH VERTICES AT (-1,0,0), (0,1,0), AND (1,0,0).
  512. ╫E CAN MASH A BUNCH OF THESE SETS TOGETHER, BUT SOMEHOW WE HAVE TO KNOW
  513. WHEN WE'VE HIT THE END -- FOR THIS WE CAN USE A ZERO, SINCE WE DON'T
  514. WANT TO PLOT POLYGONS WITH ZERO POINTS IN THEM.
  515.         ╞OR THAT MATTER, HOW MANY POINTS SHOULD THERE BE IN A POLYGON?
  516. ╘HERE MUST BE AT LEAST THREE, OTHERWISE IT MAKES NO SENSE.  ╙INCE WE
  517. WANT OUR POLYGONS TO BE CLOSED, THE COMPUTER SHOULD BE SMART ENOUGH TO
  518. CONNECT THE LAST POINT TO THE FIRST POINT -- IN OUR TRIANGLE ABOVE,
  519. THE COMPUTER WOULD JOIN (-1,0,0) TO (0,1,0), (0,1,0) TO (1,0,0), AND
  520. (1,0,0) TO (-1,0,0).
  521.         ╬OW THAT WE HAVE A POLYGON, WE WANT TO ROTATE IT.  ┘OU WILL
  522. RECALL THAT WE HAVE CALCULATED A ROTATION MATRIX ═, WHICH ACTS ON
  523. POINTS.  ╙O WE NEED APPLY OUR ROTATION TRANSFORM TO EACH OF THE
  524. POINTS IN THE POLYGON, I.E. MULTIPLY ═ TIMES EACH POINT OF THE
  525. POLYGON.  ╞URTHERMORE, WE NEED TO PROJECT EACH OF THESE POINTS.
  526.         ╒H-OH: MATRIX MULTIPLICATION.  ╔N THE PAST WE HAVE AVOIDED THIS
  527. ISSUE BY PUTTING THE VERTICES OF OUR CUBE AT 1 OR -1.  ╙O WE NEED TO
  528. USE OUR MULTIPLICATION ROUTINE FROM LAST TIME.  ┬UT WAIT!  ┴S YOU RECALL,
  529. THE LAST PROGRAM USED A SPECIALLY MODIFIED MULTIPLICATION TABLE.  ╘O GET
  530. A WIDER RANGE OF NUMBERS TO MULTIPLY WE WILL NEED ANOTHER SET OF
  531. MULTIPLICATION TABLES -- NO BIG WHOOP.
  532.         ╬OW, IF YOU REVIEW THE MULTIPLICATION ROUTINE FROM LAST TIME,
  533. IT ADDS TWO NUMBERS AND SUBTRACTS TWO NUMBERS.  ╫HAT KINDS OF NUMBERS
  534. WILL WE BE DEALING WITH?  ╘HE MATRIX ELEMENTS VARY BETWEEN -64..64.
  535. ╘HIS THEN FIXES OUR RANGE OF POLYGON COORDINATES FROM -64..64.  ╫HY?
  536. ╔F THE MATRIX ELEMENT IS 64, AND WE MULTIPLY IT BY 64, THE MULTIPLICATION
  537. ROUTINE WILL ADD 64 AND 64 AND GET 128, WHICH IS RIGHT ON THE EDGE OF
  538. OUR MULTIPLICATION TABLE.
  539.         ├AN WE IMPROVE THIS ROTATION PROCESS IN ANY WAY?  ╔N FACT, WE CAN
  540. CUT DOWN ON THE NUMBER OF MULTIPLICATIONS (I.E. DO EIGHT OR EVEN SEVEN
  541. INSTEAD OF NINE MULTIPLICATIONS).  ╚OWEVER, THERE IS A FAIR AMOUNT OF
  542. OVERHEAD INVOLVED IN DOING SO, AND OUR MULTIPLY ROUTINE IS FAST ENOUGH
  543. THAT THE EXTRA OVERHEAD AND COMPLEXITY REALLY GAIN US VERY LITTLE IN ALL
  544. BUT THE MOST COMPLICATED OF POLYGONS.  ╔N OTHER WORDS, ╔ DIDN'T BOTHER.
  545.  
  546.         ╫HAT ABOUT HIDDEN FACES?  ┴GAIN, FROM LAST TIME YOU MAY RECALL
  547. THAT A METHOD WAS DESCRIBED WHICH USED THE CROSS-PRODUCT OF THE PROJECTED
  548. VECTORS.  ╚OW DO WE IMPLEMENT THIS IN THE PROGRAM?  ╫ELL, IF WE TAKE
  549. THE FIRST THREE POINTS OF THE POLYGON, WE HAVE TWO VECTORS.  ╠ET'S SAY
  550. THESE POINTS ARE ╨1 ╨2 AND ╨3.  ╘HEN ╓1=╨1-╨2 AND ╓2=╨3-╨2 ARE TWO
  551. VECTORS IN THE PLANE OF THE POLYGON WHICH ARE CONNECTED AT THE POINT ╨2
  552. (THIS ANALYSIS WILL OF COURSE ONLY WORK IF THE POLYGON LIES IN SOME PLANE).
  553. ─EPENDING ON HOW WE TAKE THE CROSS PRODUCT, THE SIGN WILL BE POSITIVE OR
  554. NEGATIVE, AND THIS WILL TELL US IF THE POLYGON IS VISIBLE.
  555.         ─EPENDING ON HOW WE TAKE THE CROSS PRODUCT?  ┴BSOLUTELY.
  556. V1 X V2 = -V2 X V1.  ╫HAT IT REALLY BOILS DOWN TO IS HOW YOU DEFINE THE
  557. POINTS IN YOUR POLYGON.  ╙PECIFICALLY, WHAT ORDER THEY ARE IN.  ╨OINTS
  558. THAT ARE SPECIFIED IN A CLOCKWISE MANNER WILL GIVE A FACE POINTING IN
  559. THE OPPOSITE DIRECTION OF A POLYGON WITH THE SAME POINTS SPECIFIED IN
  560. A COUNTER-CLOCKWISE ORDER.  ╔N MY PROGRAM, THE POLYGONS MUST BE ENTERED
  561. IN COUNTER-CLOCKWISE ORDER (WITH YOU FACING THE POLYGON) FOR HIDDEN
  562. FACES TO WORK THE WAY YOU WANT THEM TO ;-).
  563.  
  564.         ╧NE OTHER NEAT THING TO HAVE IS THE ABILITY TO ZOOM IN AND OUT.
  565. ╫E KNOW FROM THE VERY FIRST ARTICLE THAT ZOOMING CORRESPONDS TO MULTIPLYING
  566. THE PROJECTED POINTS BY A NUMBER, SO THAT'S WHAT WE'LL DO.  ╘HE MULTIPLICATION
  567. ROUTINE RETURNS ┴=┴*┘/64, SO A ZOOM FACTOR OF 64 WOULD BE LIKE MULTIPLYING
  568. THE POINT BY ONE.  ┴LL THE PROGRAM DOES IS MULTIPLY THE PROJECTED POINTS
  569. BY A NUMBER ZOOM, UNLESS ZOOM=64, IN WHICH CASE THE PROGRAM SKIPS THE
  570. ZOOM MULTIPLY.  ┬E WARNED!  ╬O CHECKS OF ANY SORT ARE MADE IN THE PROGRAM,
  571. SO YOU CAN ZOOM AT YOUR OWN RISK!
  572.  
  573.         ╘HE IMPORTANT THINGS TO REMEMBER ARE: WHEN ENTERING POLYGONS,
  574. MAKE SURE THE NUMBERS RANGE FROM -64 TO 64, AND THAT YOU ENTER POINTS
  575. IN COUNTERCLOCKWISE.  ╧UR TRIANGLE EXAMPLE ABOVE REALLY SHOULD HAVE BEEN
  576. ENTERED AS, SAY,
  577.  
  578.         3 -64 0 0 64 0 0 0 64 0
  579.  
  580. ╞ILLED ╞ACES -- ╒SING AN ┼╧╥ BUFFER
  581. -----------------------------------
  582.  
  583.         ╫ELL WE STILL HAVE ONE THING LEFT, WHICH WAS ALLUDED TO IN THE
  584. PREVIOUS ARTICLE: USING ┼╧╥ TO MAKE A FILLED FACE.  ╙OME POSSIBLE
  585. DIFFICULTIES WERE RAISED, BUT WHEN YOU PLOT A SINGLE POLYGON AT A
  586. TIME, THE PROBLEM BECOMES VASTLY SIMPLIFIED.
  587.         ╞IRST ╔ SHOULD PERHAPS REMIND YOU WHAT EXCLUSIVE-OR IS: EITHER
  588. ┴ OR ┬, BUT NOT BOTH.  ╙O 1 ┼╧╥ 0 = 1, AS DOES 0 ┼╧╥ 1, BUT 0 ┼╧╥ 0 = 0
  589. AND 1 ┼╧╥ 1 = 0.  ┴S A SIMPLE INTRODUCTION TO USING THIS FOR FILLING
  590. FACES, CONSIDER THE FOLLOWING PIECE OF THE DRAWING BUFFER:
  591.  
  592.         00001011 ═1
  593.         00000000 ═2
  594.         00000001 ═3
  595.         00001010 ═4
  596.  
  597. ╠ETS SAY WE MOVE DOWN MEMORY, ┼╧╥ING AS WE GO.  ╠ET ═2 = ═1 ┼╧╥ ═2.  ╘HEN
  598. LET ═3 = ═2 ┼╧╥ ═3.  ╘HEN LET ═4 = ═3 ┼╧╥ ═4.  ╧UR LITTLE PIECE OF MEMORY
  599. IS NOW:
  600.  
  601.         00001011 ═1
  602.         00001011 ═2
  603.         00001010 ═3
  604.         00000000 ═4
  605.  
  606. ╫HAT JUST HAPPENED?  ╔MAGINE THAT THE ORIGINAL MEMORY WAS A SERIES OF
  607. PIECES OF LINE SEGMENTS.  ╫E HAVE JUST FILLED IN THE AREA BETWEEN THE
  608. TWO LINE SEGMENTS, LIKE MAGIC!
  609.         ╔F YOU STILL AREN'T GETTING IT, DRAW A LARGE SECTION OF MEMORY,
  610. AND THEN DRAW AN OBJECT IN IT, LIKE A TRIANGLE, OR A TRAPAZOID, AND
  611. ┼╧╥ THE MEMORY BY HAND, STARTING FROM THE TOP AND MOVING DOWNWARDS.
  612.         ┼╧╥ FLIPS BITS.  ╔F YOU START WITH A ZERO, IT STAYS ZERO UNTIL
  613. IT HITS A ONE.  ╔T WILL THEN STAY ONE UNTIL IT HITS ANOTHER ONE.  ╙O
  614. YOU CAN SEE THAT IF YOU HAVE AN OBJECT BOUNDED BY ONES, ┼╧╥ING
  615. SUCCESSIVE MEMORY LOCATIONS WILL AUTOMAGICALLY FILL THE OBJECT.
  616.         ╥IGHT?  ╫ELL, WE HAVE TO BE CAREFUL.  ╧NE MAJOR PROBLEM IS
  617. A VERTICAL LINE:
  618.  
  619.         1                       1
  620.         1       GOES TO         0
  621.         1                       1
  622.         1                       0
  623.  
  624. ╬OT ONLY IS THE RESULTANT LINE DASHED, BUT IF THERE ARE AN ODD NUMBER OF
  625. POINTS IN THE LINE SEGMENT, THE LAST ONE WILL HAPPILY MOVE DOWNWARDS IN
  626. MEMORY, AND GIVE YOU A MUCH LONGER VERTICAL LINE THAN YOU EXPECTED!  ╙INCE
  627. ANY LINE WITH SLOPE GREATER THAN ONE IS MADE UP OF A SERIES OF LINE
  628. SEGMENTS, THIS IS A MAJOR CONSIDERATION.
  629.         ┴NOTHER PROBLEM ARISES WITH SINGLE POINTS: A ONE JUST SITTING ALL
  630. BY ITSELF WILL ALSO GENERATE A NICE STREAK DOWN YOUR DRAWING AREA.
  631.         ╔F YOU THINK ABOUT IT, WHAT WE IDEALLY WANT TO HAVE IS AN OBJECT
  632. THAT AT ANY GIVEN VALUE OF X THERE ARE EXACTLY TWO POINTS, ONE DEFINING
  633. THE TOP OF THE OBJECT, AND THE OTHER DEFINING THE BOTTOM.  ╘HIS GIVES US
  634. THE INSIGHT TO SOLVE THE ABOVE TWO PROBLEMS.
  635.         ╞IRST LET'S THINK ABOUT VERTICAL LINES.  ╔N PRINCIPLE WE COULD
  636. PLOT THE FIRST AND LAST ENDPOINTS OF EACH VERTICAL LINE CHUNK, BUT THAT
  637. IS EXACTLY WHAT WE DON'T WANT!  ╥EMEMBER THAT THESE ARE CLOSED POLYGONS,
  638. WHICH MEANS THAT THERE ARE _TWO_ LINES WE NEED TO THINK ABOUT.  ╔F ╔
  639. PLOT JUST A SINGLE POINT IN EACH VERTICAL LINE SEGMENT, THERE MUST
  640. BE ANOTHER POINT SOMEHWERE, EITHER ABOVE OR BELOW IT, FROM ANOTHER
  641. LINE SEGMENT, WHICH WILL CLOSE THE POINT TO ┼╧╥-FILLING.  ╥EMEMBER, WE
  642. WANT EXACTLY TWO POINTS AT EACH VALUE OF X: ONE WILL COME FROM THE
  643. LINE, AND THE OTHER WILL COME FROM THE OTHER LINE WHICH MUST LIE ABOVE
  644. OR BELOW THE CURRENT ONE.
  645.         ╞URTHERMORE, WITH ANY CONVEX POLYGON THERE ARE EXACTLY TWO
  646. LINES WHICH COME TOGETHER AT EACH VERTEX OF THE POLYGON.  ╘HIS MEANS
  647. THAT THERE ARE ONLY CERTAIN CASES WHICH WE NEED TO WORRY ABOUT.
  648. ╞OR INSTANCE, TWO LINES MIGHT JOIN IN ANY OF THE FOLLOWING WAYS:
  649.  
  650.         \                  /    \    /
  651.          \                /      \  /
  652.           \_____    _____/        \/  ETC.
  653.  
  654. ╔F YOU DRAW OUT THE DIFFERENT CASES INVOLVING VERTICAL LINES, YOU CAN SEE
  655. THAT YOU HAVE TO BE CAREFUL ABOUT PLOTTING THE LINES.  ╧NE TRICKY ONE
  656. IS WHERE TWO VERTICAL LINES WITH DIFFERENT SLOPES OVERLAP AT THE POINT
  657. OF INTERSECTION.
  658.         ╙O AFTER STARING AT THESE PICTURES FOR A WHILE, YOU CAN FIND
  659. A CONSISTENT METHOD WHICH SOLVES THESE DIFFICULTIES.  ┴S LONG AS YOU
  660. FOLLOW THE FOLLOWING RULES, THE PROBLEMS ALL DISAPPEAR; THE LINE ROUTINE
  661. NEEDS TO BE MODIFIED SLIGHTLY:
  662.  
  663.         1) ╫HEN PLOTTING A VERTICAL LINE (I.E. BIG STEPS IN ┘ DIRECTION),
  664.            DON'T PLOT THE ENDPOINTS (I.E. X1,Y1 AND X2,Y2).
  665.         2) ╫HEN PLOTTING A VERTICAL LINE, CONSISTENTLY PLOT EITHER THE
  666.            FIRST PART OF EACH CHUNK OR THE LAST PART OF EACH CHUNK
  667.            (EXCLUDING THE ENDPOINTS OF COURSE).  ╔N OTHER WORDS, ONLY
  668.            PLOT A POINT WHEN YOU TAKE A STEP IN X, AND THEN PLOT ONE
  669.            AND ONLY ONE POINT.
  670.  
  671. ╬OW ╔ DEDUCED THESE BY STARING AT PICTURES FOR A FEW HOURS AND TRYING
  672. DIFFERENT THINGS LIKE TOP/BOTTOM OF CHUNK, LEFT/RIGHT, FIRST/LAST, ETC.
  673. ┘OU CAN SEE THAT IN SOME CASES THIS ENSURES THAT ONLY ONE POINT APPEARS
  674. ON A GIVEN LINE SEGMENT.  ┬UT TO ME THE ONLY WAY TO CONVINCE YOURSELF
  675. THAT THIS REALLY DOES WORK IS TO DRAW A BUNCH OF PICTURES, AND TRY IT
  676. OUT!  ┘OU HAVE CASES WHERE TWO VERTICAL LINES INTERSECT, AND WHERE
  677. A VERTICAL LINE INTERSECTS A HORIZONTAL LINE.
  678.         ┬UT THERE IS STILL ONE THING WHICH WE HAVE FORGOTTEN -- THE
  679. CASE OF A SINGLE POINT.  ╘HIS CAN HAPPEN IN, FOR INSTANCE, A POINTY
  680. TRIANGLE, POINTING IN THE X-DIRECTION.  ╚OW DO WE FIX THIS?  ┬Y
  681. SIMPLY AVOIDING THE POINT: IN THE LINE DRAWING ROUTINE, USE ┼╧╥
  682. TO PLOT THE POINTS INSTEAD OF ╧╥┴.  ╙INCE VERTICAL LINES SKIP THE
  683. ENDPOINTS, VERTICAL-HORIZONTAL INTERSECTIONS ARE ╧╦.  ╚ORIZONTAL-
  684. HORIZONTAL INTERSECTIONS WILL FORCE THE POINT OF INTERSECTION TO
  685. BE ZERO.
  686.         ╒H-OH, WHAT ABOUT INTERSECTIONS LIKE -----*------.  ╤UITE FRANKLY
  687. ╔ JUST THOUGHT OF IT, AND ╔ THINK MY PROGRAM WILL FAIL ON INTERSECTIONS
  688. LIKE THESE.  ─RAT.  ╫ELL, THAT JUST GIVES US SOMETHING FOR NEXT TIME!
  689.         ╧NE OTHER THING NEEDS TO BE MENTIONED: FOR ┼╧╥-FILLING TO BE USEFUL
  690. YOU NEED TO DRAW THE POLYGON IN A SPECIAL BUFFER, AND THEN ┼╧╥ THIS BUFFER
  691. INTO THE MAIN DISPLAY BUFFER.  ╔F YOU TRY TO ┼╧╥ THE DISPLAY BUFFER DIRECTLY
  692. YOU ARE GOING TO HAVE A WHOLE HEAP OF TROUBLE, SUCH AS THE CONCERNS RAISED
  693. LAST TIME.
  694.         ╞INALLY, THIS GIVES A SIMPLE WAY OF FILLING WITH PATTERNS INSTEAD
  695. OF BORING MONOCOLOR.  ╔NSTEAD OF ┼╧╥ (┼╧╥┬╒╞),┘ : ╧╥┴ (─╥┴╫┬╒╞),┘ YOU CAN
  696. USE ┼╧╥ (┼╧╥┬╒╞),┘ : ┴╬─ ╨┴╘╘┼╥╬,┘ : ╧╥┴ (─╥┴╫┬╒╞),┘ (AS LONG AS YOU
  697. PRESERVE THE ORIGINAL ┼╧╥ (┼╧╥┬╒╞),┘).
  698.  
  699.         ╫ELL ╔ AM EXTREMELY TIRED AND ╔ HOPE ├RAIG HASN'T SENT OUT ├=╚ACKING
  700. WITHOUT ME!  ╔ HOPE YOU HAVE FUN PLAYING WITH THE PROGRAM, AND ╔ WOULD BE
  701. VERY INTERESTED IN SEEING ANY NEAT GEOMETRIC SHAPES YOU MIGHT DESIGN!
  702.  
  703. ╨ROGRAM NOTES:
  704. --------------
  705.  
  706.         - ╚IDDEN FACES DEFAULTS TO "ON".  ╔F YOU ENTER A SHAPE AND A BLACK
  707.           SCREEN COMES UP, HIT 'H' TO TURN OFF HIDDEN FACES (YOU PROBABLY
  708.           ENTERED THE POLYGON CLOCKWISE).
  709.         - ╘HERE IS NO PATTERN FILLING -- JUST SIMPLE ┼╧╥ WITH A TWIST:
  710.           THE ┼╧╥ BUFFER IS ┼╧╥'D INTO THE DRAWING BUFFER.
  711.         - ┘OU MIGHT START HOSING MEMORY IF YOU ZOOM TOO LARGE.
  712.  
  713. ╙╠╩ 6/15/95
  714.  
  715. ┴DDENDUM
  716. --------
  717. ╙TEPHEN ╩UDD SJUDD@NWU.EDU
  718.  
  719.         ╠AST TIME WE PUT A CIRCLE INTO THE 2─ GRAPHICS TOOLBOX.  ├HRIS
  720. ═C┬RIDE HAS POINTED SOMETHING OUT TO ME ABOUT THE ALGORITHM, WHICH MAKES
  721. IT COMPLETE.  ┴S YOU MAY RECALL, THE ALGORITHM GAVE A VERY SQUARISH
  722. CIRCLE FOR SMALL RADII.  ├HRIS TOLD ME THAT SETTING THE INITIAL COUNTER
  723. VALUE TO ╥/2, INSTEAD OF ╥, GAVE A PERFECT CIRCLE.  ╫HAT IS GOING ON?
  724. ╔F YOU RECALL THE ALGORITHM, WE ARE COMPUTING A FRACTIONAL QUANTITY,
  725. AND WHEN THAT QUANTITY BECOMES LARGER THAN ONE, WE DECREASE ╪.  ╫OULDN'T
  726. IT BE A WHOLE LOT SMARTER TO ROUND OFF THAT FRACTION INSTEAD OF
  727. TRUNCATE IT?  ╧F COURSE IT WOULD, AND THAT IS WHAT STARTING THE COUNTER
  728. AT ╥/2 DOES.
  729.         ╙O, TO UPDATE THE PREVIOUS ALGORITHM, ┴ SHOULD BE INITIALIZED TO
  730. ╥/2 INSTEAD OF ╥, WHICH MEANS THAT WE CHANGE
  731.  
  732.         ╠─┴ ╥
  733.  
  734. TO
  735.  
  736.         ╠─┴ ╥
  737.         ╠╙╥
  738.  
  739. FOR A PERFECT CIRCLE EVERY TIME.
  740.  
  741. BEGIN 666 CUBE3D3.2.S
  742. ═ ' ╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*@╘╩╚*"@╚*"@╚*"@
  743. ═╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩╚'-415!(14┌@:┼5$1*"@╚*"@╚*"@
  744. ═╚*"@╚*"@╚*"@*@╘╩╚&=%3╒)'1:!╘05┼,3╒*@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩
  745. ═╚'-405)4140┌╚#<╧,3$╧.32@╚*"@╚*"@╚*"@╚*"@*@╘╩╚&9)3─┼32$5$.╩ ╫
  746. ═+╙$┘+╙─╘╚*"@╚*"@╚*"@╚*"@*@╘╩╚%8╥+├"@8╘]-4$╤%5$5$.╩ ╤,┬\╤-╥\┘
  747. ═-*"@╚*"@*@╘╩╚%8╙+├"@8╘]-4$╤%5$5$.╩ ╙+╙(╨+╙─╒╚*"@╚*"@*@╘╩╚%8╙
  748. ═+├&@8╘]-4$╤%5$5$.╩ ╓+╙$╘+╙─╒╚*"@╚*"@*@╘╩╚%8╙+├*@8╘]-4$╤%5$5$
  749. ═.╩ ╓+╙$╒+╙─╒╚*"@╚*"@*@╘╩╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@
  750. ═╚*"@*@╘╩╚'=%3$╨╠╚$┼&╚$%,3*!'3╘53╚%=%3$╥@5$┴)4┌"@*@╘╩╚%!23╘=2
  751. ═04╓@5╘┼,3*!23╒1!5$6@0:!#54)%+╩"@*@╘╩╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@
  752. ═╚*"@╚*"@╚*"@╚*"@*@╘╩╚%8╥+├"@*┌!╬15>@04┘$╚&┼-4%)/5─5$(:"@╚*"@
  753. ═*@╘╩╚&┘/5┌!7251(╚$9!4╒1%4╩!23╒5424┘%4╥╥@╚*"@*@╘╩╚$┴)1$1%3╩!3
  754. ═55)&04-%4╥╥@1─┼,3$5$╚*"@╚*"@*@╘╩╚$9!0╘53+*!!3─2@15┴44─&@5$]0
  755. ═╚%-%0╒)%5*"@*@╘╩╚%1%6%2@34534╘%'15,┴╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩
  756. ═╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩╚%8╙+├"@*┌!╞05-4
  757. ═╚$-(54┘+6:!,24┘%╚*"@╚*"@*@╘╩╚%)/551)3─4╬╚*"@╚*"@╚*"@╚*"@╚*"@
  758. ═╚*"@╚*"@*@╘╩╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩╚%8╙
  759. ═+├&@*┌!╟14┘%4─%,╚%!/3%┼'3╘┌@4$╤/5*"@*@╘╩╚%=)5$┬@2$┼$1$5.╚$9!
  760. ═0╘53╚"┴╪+5!23╘150╒0╔*@╘╩╚$%.1*!:3╘]-╚$9%05154─4╬╚*"@╚*"@╚*"@
  761. ═╚*"@*@╘╩╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩╚%8╙+├*@
  762. ═*┌!┼;╫(═0┼5&1─52╚$9)3$╤)3─>@╚*"@*@╘╩╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@
  763. ═╚*"@╚*"@╚*"@╚*"@*@╘╩╚'1(25.@4%)/1╒)!3:!)4┌!)3┼1%3─1%1*!43┌"@
  764. ═*@╘╩╚$%#0╘]-4$%.6:!42$6@05)424-,1:!)3╩"@╚*"@*@╘╩╚&,]:$%#2╘┼.
  765. ═1╥╥@:┼5.+╩ ┘-:!)4╒-512┌@╚*"@*@╘╩╚&9/4╩!$151!24╤3╚$].╚%1(25.@
  766. ═4%)/1╒)!32╥@*@╘╩╚%)%042@5$┴%╚$%25$┼#3$4┴╚*"@╚*"@╚*"@╚*"@*@╘╩
  767. ═╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩╚'=2251%╚%1/╚%53
  768. ═(:"@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@
  769. ═╚*"@╚*"@*@╘╩╚&╒94╘5,1╩!72$5.╚%┼/54┘'╚$1)1*"@╚*"@╚*"@*@╘╩╚$5!
  770. ═1╘523%╞@1┼)%455%3┼2@╚*"@╚*"@╚*"@╚*"@*@╘╩╚&1/0╒1/4╩!!3─2@<╘%)
  771. ═3┼0╠╚$%.1*!(14%21*"@*@╘╩╚$=214%4╚&%21╒5-14┘4╚*"@╚*"@╚*"@╚*"@
  772. ═╚*"@*@╘╩╚*!┴0─]55*!)5*!!3─2@04)/550┌╚$)55*"@╚*"@*@╘╩╚*!%5─52
  773. ═34]21:"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩╚&-!346@3╒54╚$)9╚%1(1:!3
  774. ═04╒%╚&1/3╒*@╚*"@*@╘╩╚$%3╚$┼.╚&╞@5╘5.5"┌@╚*"@╚*"@╚*"@╚*"@╚*"@
  775. ═*@╘╩╚*"@╚"╓@<┼5"04┼9052@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩╚*"@╚*"@╚*"@
  776. ═╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩╚'1(3╒5'2*!╔╚%-014%+╚%=)5$┬@
  777. ═5$┴%╚*"@╚*"@*@╘╩╚%1/3─=515.@3╘:@345.╚$%.1*!/1╩!!3─=,15.@*@╘╩
  778. ═╚$%.1*!(059%╚$┘/5*!,3╒9%+*!╔╚$%-╚*"@╚*"@*@╘╩╚$)%0╘]-1:!!4┌!3
  779. ═3╒5.1$┼.1┌!"4─%34╥╥@3╒*@*@╘╩╚$&@5$┼.2╘╤)3─>@0╒┼-0─%,+╩"@╚*"@
  780. ═╚*"@╚*"@*@╘╩╚*"@╚"╓@,:!├3╒))3┼1(24%.4┌ ╤,┌"@╚*"@╚*"@*@╘╩╚*"@
  781. ═╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@╚*"@*@╘╩╚' ╬<╥┌@=$┴)4┌!705.@
  782. ═5╒))5%1%3╩!54╘┼.1┌"@*@╘╩╚*"@╚*"@;4523$┼.╚#$╥."┌@╚*"@╚*"@╚*"@
  783. ═╚*"@*@╘╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*┬╚╩*@╘-(&]╥9╥ ─
  784. ═.# ╨, ╘-*╩!├3╘┘35$%.5%,-#6)╒9╞8╤(&5╤=2 ─,╙ ╨," [9─┼24╒2@0╘┴!
  785. ═4─%#5$52╚%-%5 ╒┬=69╞,┬!┼<74@)#,╪,# @.╫-%0╘].1*!#2$%204-415*@
  786. ═4╘54#65╧<╞)╒9┬!┼<74@)#0╨,# @.╓5╧<┬╒"549&15(-8╟5╞9╞5╥(&5╤=2 ─
  787. ═83,@.╫!215-534%"3%╞@5$┴%╚%1!4$6@5╘].)╒2@0─6@4┼5.3─┼.1╨╒╪,2!┼
  788. ═<74@)&9┬(#═╨3╘┼.5%.@1─]2╚$1205=)3─>@0:!,24┘%#7─╤(&5╤=2 ─9╞,@
  789. ═.╫1(15-%╚%╔%4─^@4$%'1:!!1$1215-315,->#(@97%╒("1╞9" [1$].)╒2@
  790. ═0╘].1─╤)0╒2@5╘┼42*!┬87-╔8╨╒┘,┬!┼<74@)&9┼#6]╠9'@@97%╒("1╞9 ╒├
  791. ═:'5╬:╥!┼<74@)&9┼#61╪(&5╤=2 ─-├<@.╫1(25.@25.@4╘┴!4─5$╚%=)5$┬@
  792. ═=#&@0─5,3╒<-9'─@97%╒("0╓. ╒╘96╒╨,2!┼<74@)&9┬(#═╧1╩!#3╒524╘4╠
  793. ═╚$-/54╤$╚$-/3─9,24-4╚%=)5$┬@6#$-=&5═<#(@97%╒("1╞8╥ [=$5-4$]2
  794. ═05)9╚%9!4─┼!0─╤%4╨╒┌=&5═<"!┼<74@)# ╥(#═╒4╘5$╚$9/4╩!"549&15*@
  795. ═4╒=!4"┌@╚&1/3┬=4╚%1/54-(+@╒┌,2!┼<74@)#(╥(#═╒4╘5$╚$)9╚$╒!5$┬@
  796. ═4─]55$┼.10╒┌,┬!┼<74@)#(╘(#═─3╘╪╟5*!43╒5#2*!42$531:!%251(15(┴
  797. ═#7╚╙(&5╤=2 ─,├8->├0@97%╒("0╥. ╒╦(&5╤=2 ─8├8@.╓-/3┼-404┘4╚%53
  798. ═142@1─]2╚$┴)1$1%3@╘@(" [4╒521─%#1:!$151%0╒1)3╘┌@+:!$3╘╪╟5*!4
  799. ═3╒5#2 ╒╚:61┼(&5╤=2 ─8├4@.╓%21:!355)&04-%4┌!(241$14╪_#69╔;&╨@
  800. ═97%╒("0╒," [85)%╚%=%╚%5324┘'╚&5╧<┬╒&24╤,/╨╒┴;╞=═87@@97%╒(#$╥
  801. ═," [=$┴%4─6@05)%╚#(╩4$─╧04┘'34%8╚$%.1╘╤%4╨╘-*╩!╓:6,-#79═8╫-┬
  802. ═(&5╤=2 ─9# ╤. ╒┬:╓=╬9"!┼<74@)&0╨,├ -8╞]╥9&5╥(&5╤=2 ─9# ╥,0╒╙
  803. ═<╫1┴<╟0@97%╒(#$╙-#0@.╒)/5┌ ┘╚$┼.╚%-#4─5%3╩!-14╒/4┼╞@052@,3 ╥
  804. ═- ╘-#2╩@:╘523─%,#0╒├:')╧=70@97%╒("1╞9╞0╥#6=┼=&┼╬(&5╤=2 ─9╞9┼
  805. ═- ╘-*╩!╙3╘╒%╚%9!4─┼!0─╤%4╨╘-9╓╤╧8╟┴═:6╪@/2 ─,╓8@.╫1(15-%╚$%2
  806. ═1:!54╘5$╚$┼.╚$-,14%224┘'╚%1(10╒╟;&]┬>&╒┴>" ]("0╘," [1%)!5╘┼.
  807. ═1┌ ╚1╘╤/0─%,*:!"549&15(-9╓╤╧8╟┼═:6╪@/2 ─-#$-9╓╤╧8╟┼═87@@/2 ─
  808. ═-#(-;&]├>&╒╔;┬ ]("0╒-╥ [=$┴%4╘6@05)%╚%53142@24┌@0╘╤%05))3─>@
  809. ═5$┴%#6╤╧8╫┴═87@@/2 ─-3@@.╓5╧<╩ ╚3$]#04╨╔╚$)51─9%4@╒╠;╓-┘;6┼╬
  810. ═(#╘@)#4┘#6╤╧8╫┼═87@@/2 ─-├ -<#%╪(#╘@)#─╥(#═╘2$531:!!4─6@5$5-
  811. ═4$]205)9╚%-43╒)!1╘4-<#%┘(#╘@)#─╙(#═╒4╘5$╚$┼.╚%!,3╒1424┘'╚%1(
  812. ═1:!04─]*14-424].#7 ╤>┬ ]("0┘- ╒╨,╟@@/2 ─.34@.╫1(15╞@05)%╚$┴%
  813. ═4─6@4╘^@5$┴!5*!710╒╨,╟─@/2 ─.38@.╘1/3┬=4╚$┴!5─6@5$^@4─5#04╤#
  814. ═54╤!5$6@5$┴%32╪-<#)┌(#╘@)&%┼#7 ╙>" ]("1┴9┬ [=$┴%6:!-04═%╚$╤)
  815. ═1─6@14%362╪-<#-┘(#╘@)&(╨#7 ╙>┬ ]("1┬,2 [=╘┴9╚$%21:!93╒6@3$]/
  816. ═2╘┼.1┌!!5*!-1:!,24═%╚%1(050_#7 ╤=" ]("1┬,┬ [9$].)╒2@64]5╚%12
  817. ═55-4╚$╒%/╨╒╨,╟0@/2 ─8├,-<#-╘(#╘@)&(╘(#═╚059)3─>@04┘/5$┴%4╩!#
  818. ═2$┼,1*!705-.)╒2@35╞@241%02╪-:6┘─97@@/2 ─-3$-8╓]╒;╟1╨=',@/2 ─
  819. ═-3(->╞]╧;2 ]("0╫,2 [>─]/3:!&04-43╒(-9'-╪(#╘@)#8╤(#═─<╫┬@25.@
  820. ═5$┴%╚$┼.0╒)%345.5*!&3╒(-(" @.╒)/5$%424┘'╚$%23╒5.1*!8#61╙>2 ]
  821. ═("0╓,┬ [<╘┼-24╤!4╩!&3╒*@9'-┘+*!─<╫╚-9'-┌(#╘@)#8╙#7-╪(#╘@)#8╘
  822. ═(#═╘2$531:!!4─6@5$┴%╚$%#5%5!3*!!3─=,15.@24┌@6*!9╚$%.1*!:#7-┘
  823. ═(#╘@)#8╒#7-┌(#╘@)#8╓#70╤(#╘@)#8╫(#═╘2$531:!!4─6@55-%1*!)3╩!4
  824. ═2$6@4─]4051)3╘╪-=#(@/2 ─-├@-=#,@/2 ─-├─@.╫-%1:!42$6@05)424-,
  825. ═1:!&3╒*@34]21:!$151!24╤3#70╘(#╘@)#9┴#70╒(#╘@)#9┬#70╓(#╘@)#9├
  826. ═#70╫(#╘@)#9─#70╪(#╘@)#9┼#70┘(#╘@)#9╞#70╤," ]("0╫, ╒┴,3$@/2 ─
  827. ═834@.╫1(15-%╚$%21:!42$6@14╤%345.5%.@3╘:@5$┴%╚%)/5$%424].╚$╒!
  828. ═5%))6 ╒┬,3(@/2 ─838@.╫┴┘>@╒├,3,@/2 ─83<-9#(╤(#╘@)&$╪(#═╘2$6@
  829. ═3┼5-0─52╚$1%3─]415.@*%)/5╥╤#3╘╤534╪╔#64╥,┬ ]("1┴.0╒╞,├,@/2 ─
  830. ═86$-9╙,╤(#╘@)&%┬#6@╙,┬ ]("1┴8╨╒╔,╙,@/2 ─860-#0╘╩*┬╩@;4%#4─]3
  831. ═#0╒═;╫9┼(&╒┴8╨╘@;&1┴(%╘╤#2!╙=&$@73(-(#╨\/ ╘-9╓5╘:╓5┘(&╒┴8╥ @
  832. ═.╫=!252@1─]2╚$&@2╘594%)%4╒,-=╓%╔="!╩<╫(@9╓5╘:6╪-(&-═<" ├,# -
  833. ═(&)┼<2!╫86┼╘#2 \/#╨-#61┼8╟5╟(&╒┴8╥ @.╫!224┘4╚$&@0╘┴!4─%#5$52
  834. ═#2!─;┌ ╨╚* [9$].)╒2@05-314╒"3$4-#2!╠9&&@(╒╘╤#2!╩<╫*@8╓┴╥;╫5╘
  835. ═#2!├;&─-(#╪^/┬!╟971╦97─@.╓%.1*!704┼4╚%1/╚$-/3┼1)3┼5%#2!├;7 @
  836. ═(╥=3)╥ [;5╞@4╘5#4─5#5*!35╘┼40╘┬@2╘59#2!┬;╞4@;#$-(&╔╙<┬!├;&5┴
  837. ═;╟5╨#2!╩;7 @9&]╬90╒╠,2!├;7 @(╥=8)╥ [;5╞@4╘5#4─54╚$%"3╒)4╚$═%
  838. ═60╘@8╞┘┼(&1╧;╞4-(&╔═<"!├;&5┴;╟5╨#2!╞:6╪-9&]╬92 \/#╨-#61┼8╟5╟
  839. ═82!═86,-(&1╧╚# -(&╤─82!=,0╘@<╫1┴(#$╨,├0-(&9╔;@╒─;╓┘┼82 \/#╨-
  840. ═#2╚═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═#0╘@;&1┴(",─,# -
  841. ═('-╘82!┬:╓=╬9 ╘@<╫1┴(&)╧<╞1┼<@╘@;&1┴('9═8╫-┬#2!┴;╞0@(╥4╨,# ╨
  842. ═,3$╤,2 [<╘-2145.╚$╒%34]26:!43┌ ╤,#(╘#2!╧<╞$@(╥4╨,# ╤,# ╨, ╘@
  843. ═<╫1┴('9═8╫-┬#0╘@;&1┘(",╨, ╘@;&1┴(",\='1┼>'0-('-╘82!╘96╒╨,0╘@
  844. ═;&1┴(",^='1┼>'0-('-╘82!╘96╒╨,@╘@:╞╒╨('1╔=&╤┼#71╘97┴╘(&┴┼>" ┘
  845. ═,╙ ╒,3$╤,3$╤(#═#3$5!4╩!30╒)%14╪╠╚%=(251%+*!#4┼-2╚$1.#2!╘>'0@
  846. ═)┌"@╚*"@╚*"@╚*"@╚*!#54)%,╘2@5├,╬,┬<╠,$0╠,$0-('1╪=" ╟╚*"@╚*"@
  847. ═╚*"@╚*"@╚*"@╚*"@0┼─╟+#!$#2!╚97@@.68@.╘-904╪-('1╪=" ╟╚*"@╚%-4
  848. ═15!(14┌@2┼5$1"<-(&┴┼>" ┘.0╘@='┴╘(">@╚*"@1╘5/4─=%╚%1!64╤/4┬<╠
  849. ═,$0╠,$0-(&┴┼>" ┘8@╘@='┴╘(">@╚$-(14-+╚$]55*!42$6@2─%.+╩ ┘-:!)
  850. ═4╒-51:!/1┬<╠,$0-(&┴┼>" ┘-@╘@='┴╘(">@╚$,]2$%#2╘┼.1╥<-(&┴┼>" ┘
  851. ═8@╘@='┴╘(">@1─]2╚$╒/4─6@1$5404┼,4╥$╟+#!$#2!╚97@@,&0╤9#%─.64╤
  852. ═,@╘@='┴╘("=&,2]&,┬<╠.3(-('1╪=" ╟╚"╓@24┘#+╘1%0┌!8+5)/5$%424].
  853. ═)╥╨╨1 ╘@:&5╪(#%─,60╤,@╘@='┴╘("=&,╥]&-"<╠.3(-('1╪=" ╟╚"╓@24┘#
  854. ═+╘1%0┌!9+5)/5$%424].)╥╨╨1 ╘@:&5╪(#%─,60╤,@╘@='┴╘("=&-2]&-┬<╠
  855. ═.3(-('1╪=" ╟╚"╓@24┘#+╘1%0┌!:+5)/5$%424].)╥╨╨1 ╘@:&5╪(#%─,60╤
  856. ═,@╘@='┴╘(">@1├>@╚"<╠.3(-('1╪=" ╟╚"╓@4─53150╟+#!$#2!╚97@@,60╤
  857. ═9#$╥#2!╘>'0@)┌ ╦+╥╓@)╥╨┘,@╘@='┴╘(">@+:!:3╘]-╚$┼.+╘]55"<╠,$0-
  858. ═(&┴┼>" ╤9#%─,3(-('1╪=" ╟╚*!(╚* ╟+#─╥#2!╘>'0@)┌ ═╚%1/1╘=,1:!(
  859. ═241$14┌@4╒521─%#15,╟+#!$#2!╚97@@,60╤9#$╥#2!╘>'0@)╒-004-%)╥╨┘
  860. ═,@╘@='┴╘(">@+:!43╘='3$6@4╒521─%#1:!&24╤,24┘')╥╨╨1"╨╨1 ╘@='┴╘
  861. ═(">@╚%!215-3╚%&@5$^@455)5"<╠,$0-(&┴┼>" ╨9# ╒#2!╘>'0@)┌"@╚*"@
  862. ═╚%!215-3╚$%.6:!+15╞@5$^@0─5'24╪╟+#!$#2!╚97@@,# -=&┼╘;&4@;&1┴
  863. ═("┴╘96╒╨,2─╠>0╘@8╞5╤(#╔├;╓┘╘#2!╩<╫(@8╓┴╥;╫5╘#2!╔;╟─-(&)╬92!╘
  864. ═:71╠90╘@:6┘├('1┼;7 ╥#2!╩;7 @=&┼╘;&4-.╞-╧;╟0@/├╪^(&=┼=&═┼>0╘-
  865. ═*┬╚╩*╩!╙152@55"@5$%"3$53*#\╔#0╘╩╚'1!0─╤%4┌!!4─6@0╒524─5.5$╤9
  866. ═╚%-%5*!54*!)3╩!┬87-╔8╨╘╩╚$%.1*!"6:!42$6@05-314╒"3$52+@╘-=&%┬
  867. ═;&5╙(&╤─82 ├/╟1═871╚,0╘@<╫1┴('╚╤*╙$-('-╘82!┌,┬╠╤#2!╠9&$@(╙┘╘
  868. ═;6%╘:#(-('-╘82!┌,╥╠╤#2!╙=&$@>├0╦,0╘-*┬╚╩*╩!├3$5!4╩!30╒)%14┌@
  869. ═04┘$╚%-%5*!54* ┬0─┼434%0(@╒╙971╒<"!╠9&$@(╥0╨,2 [=╘┴)5$4-('-╘
  870. ═82 ─9# ╥,2 [=$┴)4┌!)4┌!$3╘┘%╚%-/╚%1(052@3╘╤$15(-(&╤─82 ├,30╫
  871. ═(#═-04-(24┘%4┌!724╤,╚%-%5*!54 ╘@:╟-╥(&-╚<╞]╒= ╘@;&1┴(",─,# @
  872. ═.╘-/4┼)%0╒1,60╘@<╫1┴("1─,#(╤#2!╠9&$@(╙╤╙<╫1┴<╟0-(&%─8╥ ├,3(@
  873. ═.╫1(1:!'3╘%,╚$┼3╚%1/╚$-%3┼1%4╩!42$6@1╒)!4$┴)0╒,-('-╘82!╘96╒╨
  874. ═,2 [8╘],54╒.╚#$╥#2!╠9&$@(╙┘╙<╫1┴<╟0@.╫)/5┌ ┘#2!╙=&$@=&5═<#$╦
  875. ═,2 [<╫-╘87)╘╚%!/24┘44┌!43┌!23╒>@.0╘@;&1┴(",╨, ╘@;&1┘(",╨, ╘@
  876. ═;&1╪(",╨," [6*!724╤,╚$-/54┘4╚#$╓╚%)/5╒.@1─]2╚%53#2!├;&,-#3╔╠
  877. ═;╓]╨('-╘82 ╚=&5═<#$╔+'─-(&┼╬>0╘@861├(",╤-@╘@8╞-├(#╔╠;╓]╨#2!├
  878. ═;&,-(&╤─82!╘96╒╨,0╘@861├(",╘," [;─5%1*!43┌!!1$2@-#"@5$^@5$┴%
  879. ═╚$)!4╘6@4$])3┼1%4@╘@<╫1┴('1┼;7 ╤(#═╘3┌!*54╒0╚%1/╚%1(1:!.15┴4
  880. ═╚%)/5╨╘@;&1┴('1┼;7 ╤*╙$-(&%─8╥ ├,# @.╫1!2╘6@0╘%21:!/1╩!#05)2
  881. ═2453#2!╙=&$@=&5═<#$╦,0╘@;&1┘(",╨, ╘@:6┘╪#2!╘>&$@(#═╪╚$┼3╚$%,
  882. ═4╘^@04┌@24┘$15┬@24┘43┌!42$6@0╘┴!4─%#5$52╚$┘534)%4@╘@8╫!╪(",╤
  883. ═-@╘@8╞┘┼(#╔╠;╓]╨(#═╬145$╚%1/╚$1/╚$┼4╚#$╓╚%1)3453#0╘╩*┬╚╩╚&-,
  884. ═14%2╚$)51─9%4┼,-#2!╠9&$@(╙╤┬=69╞,0╘@<╫1┴(&)╒9╞9┼<@╘@;&1┴(",^
  885. ═8╟5╞9├$-('-╘82!┬=69╞97(╦,0╘@;&1┘(",─,# -(&╤─>" ├,├0@.╓%34╒5-
  886. ═24┘'╚$%,3*!42%)%1:!"549&15)3╚$%210╘@;&1┴(",─,# @.╘)!0╘╠═5$\═
  887. ═0─%#2╨╘┌8╞╤╧;╫ @<╫1┴("┴┬=69╞97(╔+'─-(&┼╬>0╘@8╞┘┼(#╔┬;&]╧< ╘@
  888. ═:6┘├(&)╒9╞9┼<┬╠╤#2!─97@-(&)╬92 ┌8╞╤╧;╫ -#2╚╩*┬╩@<╘54╚%50╚$)5
  889. ═1─9%4┼,-#2!╠9&$@(╙╤┬=69╞,0╘@<╫1┴(&)╒9╞9┼<@╘@;&1┴(",^8╟5╞9├$-
  890. ═('-╘82!┬=69╞97(╦,0╘@<╫1┴('╔╘96╒╨(#═:5$5-4*!724╤,╚$╒!2╘6@3$┼&
  891. ═1:!324╒03$6@1─]2╚%53#2!╠9&$@=╞╒├<╓(-(&%╬9" ├)3$╤,3$╨,# ╤(#═╙
  892. ═5$%25*!(15)%╚%-/╚%1(052@4╒=!4*!"549&15)3╚%=)3$╥@5╘]22┌!224=(
  893. ═5 ╘@;╫)┴(",┼,# ╨,#$╤,3 -('-╘82!╓;6-╙8@╘-*┬╚╩*╩!╙152@55"@24┘)
  894. ═5$┼!3*!604╤515,-#6┼╬:70@;&1┴(",╨, ╘@<╫1┴(&╤╧8╫┴═:6╪-('-╘82!╠
  895. ═;╓-╪;6%╪#2!╙=&$@;&]├>6╒╔;@╘@<╫1┴(&╤╧8╫┼═87@-('-╘82!╟;&]┬>&╒╔
  896. ═;@╘@<╫1┴(&=╠;╓)┘;6┼╬#2!╙=&$@9╓╤╧8╟┴═87@-('-╘82!╟;&]┬>6╒┴> ╘@
  897. ═<╫1┴(&1╙> ╘@<╫1┴(&1╙>0╘@<╫1┴(&1╙>@╘@<╫1┴('-╪#2!╙=&$@<╫─-('-╘
  898. ═82!╙>@╘@<╫1┴(&9╔;&╨-(&╤─82 ├,#$-('-╘82!╚:61┼#2!╠9&$@(╙8╘#2!╙
  899. ═=&$@>╞]╧;0╘-*┬╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘-*╩!═
  900. ═04┼.╚$╤/3╒ -#2╚╩*┬╩@9╘54╚$═%65!215-3#0╒═86┼╬#2!├;&─-:╫!╥97-╙
  901. ═(&╔╙<┬!╟971╔;@╘@8╓╒╨(",╤,╙,@.╓8╤/╨╘@8╞┘┼(#╔╞,@╘@;&1┴(&1╙> ╘@
  902. ═8╓╒╨("-┴;╞=═87@╧,┬ [;─^@34]21:!42$%.╚%!)#2!┬97$@.╞-╧;╟0╤#2!╔
  903. ═;╞,@9'-╪(#═/5$┴%4┼=)4╘6@24┘#4─5!4╘6@6"╒23╒1!5$┼/3@╘@:╞╒╨(#╔├
  904. ═;╓┘╘#3╔╞,┬!├;7 @(╙$╙-╥ [9├(_#2!┬;╞4@.╞8╙#2!╠9&$@9'-╪#2!┬97$@
  905. ═.╞-╧;╟0╤#2!─96,@9'-╪#2!╩;7 @.╞-╧;╟0-.╞8╙(&-═<" ├,3,╘#2!┬;╞4@
  906. ═.╞8╘#2!╠9&$@9'-┘#2!├;7 @(╓%╬9╓╒┴>"\╥#2!┬97$@.╞-╧;╟0╤#2!╔;╞,@
  907. ═9'-┘(#═╔3─-214%31:!9+5)/5$%424].#2!╩;7 @.╞-╧;╟0-.╞8╘(&-═<" ├
  908. ═,3,╪#2!┬;╞4@.╞8╒#2!╠9&$@9'-┘#2!┬97$@.╞-╧;╟0╤#2!─96,@9'-┘#2!╩
  909. ═;7 @.╞-╧;╟0-.╞8╒(&-═<" ├,3,╒#2!┬;╞4@.╞8╓#2!╠9&$@9'-┌#2!├;7 @
  910. ═(╓%╬9╓╒┴>"\╥#2!┬97$@.╞-╧;╟0╤#2!╔;╞,@9'-┌(#═:+5)/5$%424].#2!╩
  911. ═;7 @.╞-╧;╟0-.╞8╓(&-═<" ├,3,┘#2!┬;╞4@.╞8╫#2!╠9&$@9'-┌#2!┬97$@
  912. ═.╞-╧;╟0╤#2!─96,@9'-┌#2!╩;7 @.╞-╧;╟0-.╞8╫(&-═<" ├,3,╓#2!┬;╞4@
  913. ═.╟!╠=7,-(&╔═<"!╔;╞┼╘#3╔├;╓┘╘,2!╩;7 @.╞-╧;╟0-.╟!╠=7,@8╓╒╨(",╟
  914. ═*╥<-(&)╬92 ┌;6┼╬=7,-(&┼╬8╥!┌;╓]═(#═┬04@╠╚%=(3┌!.145$4┌!%4┼)/
  915. ═4╩!#2$5#2╘┼.1╙\-(&┼╬8╥!┌;╓]═#2!╩;7 @.╞-╧;╟0-.╞╒╔;╟5╙(&-═<" ├
  916. ═)╥╘╟#2!┬;╞4@.╞@-(&1┼8╥!┌;╓]═#2!─96,@>╞]╧;0╘@8╟!╠(#╔├;╓┘╘#2!╔
  917. ═;╞,@>╞]╧;0╘@:6┘├('╔╧;╓╘-(&╔═<" ┌8╓]╬= ╘┌:"!├;7 @(╥=()╨╘@8╞┘┼
  918. ═(#╔╙<&%├90╘@;&1┴(&┴╔9&4-(&5╧<┬ ├)# ╤#2!╙=&$@:&┼─90╘@:╞╒╨(#╔├
  919. ═;╓┘╘#3╔╙<&%├92!├;7 @(╥>@)╨╘@8╞┘┼(#╔╤#2!╠9&$@9╞┼╠; ╘@96]╥(",─
  920. ═,#$-('-╘82!╞:6╤╠#2!╩;7 @.╞-╧;╟0-.╟$@8╓╒╨(",╟42<@.╒&@455)5%,-
  921. ═(&)╬92 ┌8╓]╬= ╘@:╞╒╨(&-╠96%╬=7 -#3╔├;╓┘╘('-┼:2 @.╫-0145$╚%1(
  922. ═24┘'4┌!54*!!╚$))5 ╘-*┬╚╩*╩!╒4$1!5$6@04┘'3$53#0╒╒<&1┴=&4@8╓╤├
  923. ═#2!╠9&$@<╫@-(&%─8╥!─<╫@-(&-═<" ├86┘╟;6%╪(#═┴4─6@5╘6@/├╓@34%8
  924. ═24╒53:!!3─=,13\-(&)├8╥ ┌8╓]╬=#$-('-┬8╥ ├86┘╟;6%╪(#╔╔1┬!33╥╨@
  925. ═4─53150-.╞-╧;╟0╤('-╘82!╙> ╘@8╓╤├#2!╠9&$@<╫─-(&%─8╥!─<╫─-(&-═
  926. ═<" ├86┘╟;6%╪#2!┬8╓,@.╞-╧;╟0╥#2!╙8╞,@(╓%╬9╓╒┴>" [<╘%-1:!$14%,
  927. ═#3╔├;╓┘╘,┬!╙=&$@<╫─-(&-╠8╨╘@;&1┴('-┌#2!┴9&,@9'-┌#2!├;7 @(╓%╬
  928. ═9╓╒┴> ╘@8╞-├(#╔├;╓┘╘,╨╘@<╓)├("-┴;╞=═87@-.╞-╧;╟0╙('-╘82!╙>@╘-
  929. ═*┬╚╩*╩!╥3╒1!5$6@0╘]/4─1)3─%415,-#7)╧=&%╘90╘-*┬╚╩╚&9)4┼-4+*!#
  930. ═04╤#54╤!5$6@5#$╠5#(╠+┬╪╬+%0╤, ╘-*┬╩@=%=/╚$╒!0╒)/4┌!43┌!324╒0
  931. ═3$┼&6:!/55*@3$┼&10╒┴9&1┴(&╒┴8╥ @.╓%$1*!45╘^@04┘'3$53╚%1/1╘54
  932. ═2$52#2!├;&,-(&╤─82!=,0╘@861├(%╘╥#2!├;7 @(╓%╬9╓╒┴>" [:5.@5$┴%
  933. ═╚%-53: ^╚#(╩4$─_#2!┬8╓,@9&]╬90╘@<╓)├("-┴;╞=═87@@.╓┼&╚%-/+*!3
  934. ═54)44─%#5* ╥*┼!)#61╧;╞4@/#╨\#0╒╙=6)┴(&╒┴8╥ @.╫-50┼1204-4╚%17
  935. ═3┌!!3─=,15,-('-┼8╨╘@;&1┴(%╘╤#2!╙8╞,@73(-(&)├<╥!─;╓┘┼#2!┴9&,@
  936. ═(╓%╬9╓╒┴>" [;╘]04╥╥@5╘6@3─5%1*!43┌!!1$2@,┬╔020╒─;╓┘┼(#╨\/ ╘-
  937. ═*┬╩@;─]7╚$-!3$-53$%41:!4,2╤4,┬╤%5$,╬#0╘@/├╪^('-╒8╞$╠<╫─[<╫╚-
  938. ═('-╘82!╘,2 [5#$]4╒─═4╒╚-(#╪^/┬!┴9&1┴+'-┘.╫-┌#2!╙=&$@=#(@.╒0╥
  939. ═/5-9*╒-:#2 ^/├╪@861─82╤╙>#═╙>@╘@<╫1┴('0╙(#═4,╙╒36"═36@╘@/├╪^
  940. ═('-╒8╞$╠<╫@[<╫╚-('-╘82!╘-" [5#0]4╒@═4╒╚-(#╪^/┬!┴9&1┴+'-╪.╫0╥
  941. ═#2!╙=&$@=#4@.╒0╒/5-8*╒0╥#2 ^/├╪@<╫5┬82╤╙>#═╘,0╘@<╫1┴('0╓(#═4
  942. ═-├╒36"╒4,0╘@/├╪^(&%─9&$╠<╫@[=#$-('-╘82!╘-╥ [5#<]4╒@╦5#$-(#╪^
  943. ═/┬!╙=6)┴+'0╥.╫-╪#2!╙=&$@=#@@.╒0╪/50╥+5-8#2 ^/├╪@<╫5┬82╤╙>3═╙
  944. ═> ╘@<╫1┴('0┘(#═4.3╒362╒36 ╘@/├╪^(&%─9&$╠<╫@[<╫─-('-╘82!╘,3 @
  945. ═.╒0╤,#╒36"═360╘-*╩!┼5*!63╘┼,02$-#2╚╩*╩!╬15┴4+*!#04╤#54╤!5$6@
  946. ═82╤┬+&,╠+┬╪╬+&─-#2╚╩╚&%.3╒1(15*@55-%1┼5,╚$╤)5%1,1:!-04-23╨╒─
  947. ═:78╥(&╒┴8╥ @.╓1)5─┼$1:!!╚%-)1╘┘%1*!.54╒"15*@0┼╞@,@╘[:52@25.@
  948. ═05-354╒%1*!42$%4╚%1(1:!.54╒"15(-(&)╨;"!╨;╫,@.╘┼3╚$┼.╚%1(1:!!
  949. ═0╘-5355,051/4@╘@8╓╤├#2!┼;╫(@(╥1╞9┬ [=╘6@3─5%1*!43┌!53┬╒.14=!
  950. ═5$┼61:!42$6@3┼5-0─52#2!┴9&,@(╙ ╤(#═"6:!404═)3─>@250╟4┌!#3╘╒0
  951. ═3$5-14┘4#2!╠<╫(@(#═$259)1$6@0┼╞@5%=/#2!├;&,-(&5╧<┬ ├)&9╞#2!┴
  952. ═9&,@(╙ ╤(#══04═%╚$┼4╚$┘%1╘%4259%╚$%'04┼.#2!╩;7 @9&]╬961╔=@╒╨
  953. ═;╫,@;'-╥(" [;┼5-0─52╚$┼3╚%!/4╘┼4259%#61╧;╞5─:78@/#╨\#0╒═=6╨╥
  954. ═(&╒┴8╥ @.╓╒53%1)4$╤9╚$&@4╘┼'3─5$╚$┘534)%4╩!"6: ╥#2!┬<&╨@<&]╙
  955. ═;0╘@8╓╤├#2!┼;╫(@(╥1╞9@╘@861├(",─,#$-(&%╙; ╘@8╓╤├#2!┼;╫(@(╥1╞
  956. ═9@╘@861├(",─,#$-(&╔═<"!─;╓┘┼;75╠#7!╧<╓╘@87-╠#61╧;╞5═=6╨@/#╨\
  957. ═#0╘╩*╩!╬3╒1%╚%1(052@5╘6@05)%╚$-54┼)%3┼1,6:!-04═)3─>@0:!-24┘/
  958. ═4╩!,14%0#2╚╩╚$]&╚$9!251(╚%1(052@3─^@3╒9%4─9,3╒=3╚%=)3$╥@3╘-#
  959. ═55(╬#0╘┌8╓%╠8╓$@8╓╤├#2!╠9'@@=#$-(&╤─82!├;╫,╠> ╘@;&1╪('0╥#2!┴
  960. ═9&,@8╓]╙+'@-('-╘82!┴,3$@.╓$]*$-/4╥┴4,2─╦0╘]3*%0╥*2─╧,@╘┌8╓%╠
  961. ═8╓(@;&1╪('0╤#2!╠9&$@<╓┼╬+'@-('-┼8╨╘@;&1╪('0╥#2!╙8╞,@<╓┼╬+'@-
  962. ═('-╘82!┬,3(@.╓(]*%-)3┬┴4,2─═4╘┼.*%0╥*2─╧,@╘┌8╓%╠8╓,@;&1╪('-┘
  963. ═#2!╠9&$@<╓┼╬+'@-(#╪^/┬!═=6╨╥#2!╙=&$@8╙$╙(#═├/5-)3┬┴362─-.╞-┴
  964. ═;&-─('-┼8╨╘@;&1╪('0╪#2!╠9&$@8╓]╙+'@-(&╤─>"!╘-╨╘@<╓)├(&-╧<╥╤╪
  965. ═#2!╙96,-(&╤─>"!╘-0╘@<╓)├(&-╧<╥╤╪#2!├;&,-(&╤─>"!╘-@╘@861├(&-╧
  966. ═<╥╤╪(#═─23╘╚0╘]3*%0╪*2╒#3╒,╚5#<╔*╘-/4╥┴4-┬─═0╘]3*%0╒*2─╧,@╘@
  967. ═/├╪^(&1╔=├(-(&-╠8╨╘@;&1╪('0╙#2!┴9&,@<╓┼╬+'@-('-┼8╨╘@;&1╪('0╘
  968. ═#2!╙8╞,@<╓┼╬+'@-('-╘82!─,├$@.╓0]*%-)3┬┴4,╥─═4╘┼.*%0╘*2═─22─╧
  969. ═,@╘┌8╓%╠8╓4@<╓5├#2!╠9'@@=#4-(&╤─82!╙:6╪╠> ╘@;&1╪('0╓#2!╙8╞,@
  970. ═<╓┼╬+'@-('-┼8╨╘@;&1╪('0╫#2!╙8╞,@<╓┼╬+'@-('-┼8╨╘@;&1╪('0╪#2!╙
  971. ═8╞,@<╓┼╬+'@@.╓5)/2┴324╪╚5#4╔+5-)3┬┴4-┬─═4╘┼.*%0╫*2╒324╪╚5#@╔
  972. ═*2\╥#2 ^/├╪@9&┼╓,@╘@8╓╤├#2!╠9'@@=#,-(&%─8╥!├;╫,╠> ╘@8╓╤├#2!╠
  973. ═9'@@=#0-(&%─8╥!├;╫,╠> ╘@<╫1┴(&4╥,┬ [93╘╚0╘]3*%0╙*2═#3╒,╚5#0╔
  974. ═*╓5)*2\╥#3╔├86╤├9┬!╠9'@@=#─-(&╤─82!╙:6╪╠> ╘@<╓5├#2!╠9'@@=#$╨
  975. ═#2!╙8╞,@<╓┼╬+'@-('-╘82!╞,├,@.╓8]*%-)3┬┴4.2─═4╘┼.*%0╤,"─╔+╙(-
  976. ═.╞-┴;&-╟(&╤─>"!╘-@╘@;&1┴('-╔;┬╤╪#2!╙96,-(&╤─>"!╘. ╘@<╓)├('-╔
  977. ═;┬╤╪#2!╙96,-(&╤─>"!╘-╨╘@<╓)├('-╔;┬╤╪#2!╙96,-(&╤─>"!╘-0╘@<╓)├
  978. ═('-╔;┬╤╪(#═╟23╘╚4╘┼.*%0╓*2╒324╪╚5#@╔+5-)3┬┴4-╥─═4╘┼.*%0╒*2─╧
  979. ═,@╘@/├╪^(&1╔=├(-(&-╠8╨╘@;&1╪('0╘#2!┴9&,@8╓]╙+'@-('-┼8╨╘@;&1╪
  980. ═('0╙#2!╙8╞,@8╓]╙+'@-('-╘82!╟,╙$@.╓<]*$-/4╥┴4-"─═0╘]3*%0╙*2═╟
  981. ═22─╧,@╘┌8╓%╠8╓@@8╓╤├#2!╠9'@@=#8-(&╤─82!├;╫,╠> ╘@;&1╪('0╫#2!┴
  982. ═9&,@8╓]╙+'@-('-┼8╨╘@;&1╪('0╒#2!╙8╞,@8╓]╙+'@-('-┼8╨╘@;&1╪('0╪
  983. ═#2!╙8╞,@8╓]╙+'@@.╓┴)/2┴#3╒,╚5#8╔*╘-/4╥┴4-╥─═0╘]3*%0╒*2╒#3╒,╚
  984. ═5#@╔*2\╥#2 ^/├╪@9&┼╓,@╘@8╓╤├#2!╠9'@@=#,-(&%─8╥!╙:6╪╠> ╘@8╓╤├
  985. ═#2!╠9'@@=#0-(&%─8╥!╙:6╪╠> ╘@<╫1┴(&@╙,┬ [:#╘╚4╘┼.*%0╙*2═324╪╚
  986. ═5#0╔*╓┴)*2\╥#3╔╫:&5╫(&-╠8╨╘@;&1╪('0┘#2!╠9&$@8╓]╙+'@-(&╤─>"!╘
  987. ═,3 -(&%─8╥!├;╫,╠> ╘@<╫1┴(&─╙,╥ [:3╘╚0╘]3*%0┘*2═#3╒,╚5#$╨*2─╧
  988. ═,@╘-*┬╩@:50╟4┌!!3$╥@1$]73─┴)3$╥@1┼)/3:!(15)%+@╘-9&]╫;╞┴╔;&╨-
  989. ═*┬╚╩*╩!├3$5!4╩!"549&15(-*╩!┴╚$╤)5%1,1:!-04-23╨╘-<╓5╘8╟5╞(&╒┴
  990. ═8╥ @.╫!55*!"549&15)3╚%=(15)%╚%1(15╞@0╘%.╚$)%╚$┴54┼0-(&╤─82 ├
  991. ═,# -('-╘82!┬=69╞97(-(&╤─82!┌=&5═<" [:$┼'2*!"651%#7-╘86)╒9┬!╙
  992. ═=&$@8╟5╞9╞5╥*╙$-(#╨\/ ╘-(#╪^/┬!╙971┬=68-8╓╤╥9')┴=╥!╠9'@@(╙ ╪
  993. ═#2!╠9&$@(╙ ╨#3╔╞;╓]╠(&╤─>2 ├,# -.╞1╧<&4@<╫1┴("┴┬=69╞97(╔+'─-
  994. ═(&┼╬>0╘@8╞┘┼(#╔─;╫!┼#2!╔;╞,@8╟5╞9╞5╥*╙$-(&1┼> ╘@8╞┘┼(#╔╞;╓]╠
  995. ═#0╘╩*┬╚╩╚&╒9╚$=/3╘1.15-3╚$)55*!╔)╘╓@0:!$3╒!%#2╔├;')─<╞%╫╚&╤─
  996. ═8:!╟;&]┬>&╒╔;@╘╩╚&╤╙<╩"@.╓┘%142@5$^@1╘54╚$┼.5$^@5$┴%╚%))1╘┴4
  997. ═╚$-/3%5-3@╘╩╚&)├8┌ ┌979┼;╩ [95┴03$%)3─5$╚$┼.╚$╒/4─6@1$5404┼,
  998. ═╚$)%3$]7#2╩@;&1┘╚",─.# -*╩!╙='╞@8╟5╞9╞5╥╚#═╨4─5354╒!0─╤9╚%1(
  999. ═25.@5╘┼,3*!"1:!!╚$╤)5%1,10╘╩╚&-╠8┌"@.╘╒/4─6@149&24-)14┘4+@╘╩
  1000. ═.╞5╓96┌@861├╚&)╒9╞9┼<┬╠╤#2╩@<╫1┴╚&)╒9╞9┼<┬╠╤#2╩@;&1┴╚&=╠;╓)╪
  1001. ═;6%╪#2╩@<╓5├#2╩@<╓)├╚&=╠;╓)╪;6┼╬#2╩@=&%╪#2╩@:6┘╪#2╩@;&1┘╚&=╠
  1002. ═;╓)┘;6%╪#2╩@8╞5╤╚#╔╥97-┼= ╘╩.╟┼┴>:!╠9&&@(╥0╨, ╘╩╚&╤─>:!╟;&]┬
  1003. ═>6╒┴> ╘╩.╞)╠86┬@<╫1┴╚"┴┬=69╞97(╔+'─-*╩!─97─-*╩!├<'╞@9╓╤╧8╟┼═
  1004. ═:6╪-*╩!┬8╫.@.╞)╠86@-*╩!╠9&&@8╟5╞9╞5╥#2╩@96]╥╚",─.# -*╩!╙=&&@
  1005. ═8╟5╞9╞5╥#2╩@8╞┘┼╚#╔╫:&]╨964-*╩!╔;╞.@8╟5╞9╞5╥*╙$-*├╔╫:&]╨966@
  1006. ═9&5╪#2╩@8╞┘┼╚#╔┘87─-*├╔╥97-┼=*!╠9&&@(╙"@.╓┘%142@5$^@4─53152@
  1007. ═5$┴%4╘6@1╒594╨╘╩╚'-╘8:!╟;&]┬>&╒┴> ╘╩╚'-╘8:!╟;&]┬>6╒┴> ╘╩╚&╤─
  1008. ═8: ├)&9╞#2╩@<╫1┴╚&=╠;╓)╪;6┼╬#2╩@<╫1┴╚&=╠;╓)┘;6┼╬#0╘╩*┬╚╩╚&┘%
  1009. ═6%0╠╚%)%042@04┘$╚$1205>@4$],64=/3┼,-#7)┼861─<╞%╫(&╤─>2 ├,# -
  1010. ═('-╘>2!╔;╞1┼> ╒╧8╞╔╠;╓]╨(&╤─>2!╔;╞1┼> ╘@;&1┴('!╧;'┼╠:7-╘+'─@
  1011. ═.╓9)4┼-4+*!42$6@3┼5-0─52╚$]&╚%!/24┘44╨╘@8╞┘┼(#╔├;╓┘╘(#═┬552@
  1012. ═24:@3┼5-4$])3┼13╚$┼3╚%╔%4─^@5$┴%3@╘@:╞╒╨(&]┬:╞1╧;╞4@.╒=%╚$%2
  1013. ═1:!!5*!42$6@14┘$╚$]&╚%1(1:!,25-4#3╔├;╓┘╘('-╘82!├;╫5╬='!╘<╨╘@
  1014. ═:6┘├(&┼╬9&5╪#0╘╩╚')/5$%41:!04─]*14-4╚$%.1*!$4─%7╚%1(1:!03╘╤9
  1015. ═1╘].#2╩@;4%+1:!355)%╚$)51─9%4╩!"14┼.1┌!$4─%73╩!43┌!)4┌!#3$5!
  1016. ═4┬$-#3╔─;╓┼╘(&╔╙<┬!╥;╫1╨<╞]╩#0╘╩╚&-/3┼9%4┼2@6$╒)3╩!!3─2@6$╒!
  1017. ═6*!43┌!#3╘╤534┘3#0╘@;&1┴(&╤╧8╫┴═:6╪-(&╤╙<@╘@;'-╥#2!╠<╫(@(#═8
  1018. ═╚$╒/1* ╪#2!╙=&$@;&]├>&╒╔;@╘@8╓╒╨(&=╠;╓)╪;6┼╬#2!┬8╫,@.╞┘┴: ╘@
  1019. ═<╫1┴(&=╠;╓)╪;6┼╬#3╔╬86@@;&1┴(&╤╧8╫┼═:6╪-(&-═<"!╟;&]┬>6╒╔;@╘@
  1020. ═8╞-╙(#╔╒:'5╚#2!╙=&$@9╓╤╧8╟┼═:6╪-.╟5╚=6@@;&1┴(&╤╧8╫┴═87@-(&╤╙
  1021. ═<@╘@;'-╥#2!╠<╫(-('-╘82!╠;╓-╪;6%╪#2!├;7 @9╓╤╧8╟┴═87@-(&)├8╥ ┌
  1022. ═;╞]╫87─-('-╘82!╟;&]┬>&╒┴> ╘┌;╞]╫87─@;&1┴(&╤╧8╫┼═87@-(&-═<"!╟
  1023. ═;&]┬>6╒┴> ╘@8╞-├(&5╧<╞9╔;&╨-('-╘82!╟;&]┬>6╒┴> ╘-*╩!╔1╩!54╘┼.
  1024. ═1┌!42$6@96]╥+4)51─9%4┬╥@0╘]06:!)3┼1/╚$1205=)3─>@0┼5&1─52#2╩@
  1025. ═84┘$╚%1(14┌@0╘╤%05*@5$┴%╚&5╧<┬╒"549&15(-#65╧<╞9╔;&╨@;&1┴(&9╔
  1026. ═;&╨-(&)┼<2!╧8╞╔╠;╓]╨#0╘@/├╪^('-┼=&)╒9@╘@;&1┴(",\96]╥8╟5╞#2!╙
  1027. ═=&$@=&5═<#$-(&╤─82 ├/╞5╧<╞)╒9@╘@<╫1┴('1┼;7 ╤*╙$-#2!╠9&$@;&]├
  1028. ═>&╒╔;┬ [;&]├>&╒╔;╩!.3╒>@0╘].5$%)3┼.@0╘],54╒.#2!╠<╫(@(#═┼04-(
  1029. ═╚$-/3%5-3╩!)4┌ ╤,├┬@0┼┼415,-(&)├8╥ ┌979┼;┬ [<╘^@5$┴%4─6@34┼'
  1030. ═2%2@0─6@0:!#05)260╘@;&1┘(",─.# -('-╘>2!┬=69╞97(-('-╘>2!╘96╒╨
  1031. ═,0╘@8╓╤├#3╔┼=╞5╬('-╘82!╘,@╘@861├(&)╒9╞9┼<┬╠╤#2!╙=&$@8╟5╞9╞5╥
  1032. ═*╙$@.╓5!0╘┬@0╘],54╒.╚$┼3╚#$╥.*!"651%4╨╘@;&1┴('0╥#2!┴9&,@=&5═
  1033. ═<#$╦,2 [;─]7╚%=%╚%=)3$╥@4╒1!4┼2@052@5$┴%#2!╙=&$@=&5═<#$╦,2 [
  1034. ═0╘],54╒.#0╘@;&1┴(&╤╧8╫┴═87@-('-┼8╨╘@<╓)├(&╤╧8╫┴═:6╪-('1┴>" [
  1035. ═=$]404╥@3┼5-0─52╚$]&╚$-/3%5-3┼.@5$^@1$\-(&┼╬>" @.╘4╬1╥┌@1─┼,
  1036. ═3*!#3╘╤534┘3╚#$╬+├,-(&╤─>2!╠;╓-┘;6%╪#2!┬;╞4@.╞9╧;╫ -(&┼╬8╥!╠
  1037. ═;╓-┘;6%╪#3╔╞;╓]╨(&╤─>2!╠;╓-┘;6%╪#2!╠9&$@(╙ ╨#3╔╟;╓]╨(&5╧<┬ ╚
  1038. ═=&5═<#$╔+'─@.╓5╧<┬╒"549&15(-('!╚80╘╩╚&╒!64)%╚%!55*!!3╩!┼;╫*@
  1039. ═0─5,3╒<_#2!┼;╫(@*&)╒9╞9┼<┬─╠>0╘@<╫1┴("┴┬=69╞97(╔+'─-(&╤─82 ├
  1040. ═,# @.╓╒)1╘┴4╚$%3╚%=%3$╥@0╘╤%05*@252@3─]7#2!╙=&$@*'1┼;7 ╤*2╤┘
  1041. ═#2!╨;&$-(&1┼>0╘@8╫!┘(&╤╧8╫┼═:6╪-(&)├<╥ ┌9╓]╧< ╘@;&1┴(&)╒9╞9┼
  1042. ═<@╘@96]╥(",─.# -('-╘82!┬=69╞97(-('-╘82!╘96╒╨,0╘@8╞┘┼(#╔┬;╓]╨
  1043. ═#2!╔;╞,@8╟5╞9╞5╥*╙$-(&┼╬8╥!╘96╒╨,2╠╤#3╔┬;╓]╨(&1┼> ╘@8╞┘┼(#╔╞
  1044. ═;╓]╨#2!╩;7 @;╓)╩;&]╧< ╘-;╓)╩9&]╬90╘╩*┬╚╩╚'-705"@0┼5&1─524╨╘-
  1045. ═<╫=┴<&)╒9┬!╠9&$@=╞╒├<╓(-(&5╧<┬ ├)# ╥(#═╨4─545%╞@5%))0╘═9+*!%
  1046. ═2#\-('-╘82!╓;6-╙8@╘@;&1┴(",─,#@-(&5╧<┬!┌=&5═<" [6┼1%35 ]2$┼'
  1047. ═2*!"651%╚$╔54╒2@1─╤)4%,-('-╘82!┌=&5═<" [0─545╘5%3╩ ─,╙"@04┘$
  1048. ═╚"0╙. ╘-(&╔═<"!═86┼╬(#═┴4─]53─2@04┘$╚$%23╒5.1*!71:!'3╥╪╬+@╘-
  1049. ═('1╪=" ╟9╘5%╚&)204┼.+*!72$%4╚$1/╚%┼/5:!704┘4╚%1/╚$1/╚"<-('1╪
  1050. ═=" ╟5$].24=(5#\╟#0╘╩*╩!╥3╒1!5$4╠╚%!23╘╔%0╒0╠╚$%.1*!35$]21:!4
  1051. ═2$6@4$])3┼13#2╚-*╩!╘2$┼3╚%!!4┼2@25.@0:!324=.249)0╘%.5*!#2$%.
  1052. ═1╘6@4╘┼.0╘4-*╩!6,┬╪╨+╩"@;─]7╚$┼4╚$┼3╚$&@0╘]-4$╤%5$5,6:!'14┘%
  1053. ═4─%,╚%!/3%┼'3╘┌@4$╤/5%1%4┬╪-*╩!┴╚%-%5*!/1╩!03╘┼.5%.@25.@4─5!
  1054. ═1*!)3┬╥@4─]4051%1*!!3─2@4%)/2─5#5$5$+*!!3─0-*╩!03$]45$5$╚$┼.
  1055. ═5$^@5$┴%╚$1205=)3─>@0┼5&1─52╚"┴┼;╫*@3╒*@3─]234%,*2╪-#7)╧='!╥
  1056. ═;╓╚-#2╩@8:!.14%4╚$╒!0╒)/#6┘┼9╥!═86,@(#═├2$%.1╘6@5$┴%╚%-)1╘┌@
  1057. ═3╘:@0:!45╘\╟4┌!#3╘╒03$5-14┘4#2!├;&,-(&╤─82!=,2 [3┼5-0─52+@╘@
  1058. ═96]╥(",─9╞8-(&%─8╥ ├)# ╤#2 \/#╨-#2╚═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═
  1059. ═+2╘═+2╘═+2╘═+2╘═#2╩@=$┴%4╘6@34%#4─]3╚%)%4$╤!0╘6@5$┴%╚%!2159)
  1060. ═3╒53╚%!23╘╔%0╒1)3╘╪-*╩!354)23╒5424┘%+@╘-<╓╒╒;'2@;6%├╚#══54╤4
  1061. ═25!,6:!45╘^@4╘┼'3─5$╚#@═0─┼4#2 [3┼5-0─524╙╩@82╔┘+╙8╘╚"╘^╚&$-
  1062. ═('-╘8:!┌,╨╘@8╓╤├╚* [=$┴)4┌!-54╤425!,6:!)4┌!&3╒*@3─]234%,#2!┼
  1063. ═;╫*@(╥1╞9╩ [3┼5-0─524╥╥@22┘%+╩!8/2╘╓-"╪╬-├0-(&%─8┌ ├)# ╤#2!╙
  1064. ═=&&@>├0-(&╤─8: ╚>├,╔+'─-('-┼8╨╘@<╓)├╚"┴┌-"─╠>0╘@/#╨\╚* [84╤,
  1065. ═╚$1/3─6@.┬─-#7-═=6╤╘>┬!═86,@.╓╒53%1)4$╤9╚%173┌!324=.142@."╒"
  1066. ═250-(" @.╘┘534)%4┼,┌╚&$╩>2\╓-* ═/╩!┴#2!╙=&$@>├$-(&-╠8╥ @.╓%.
  1067. ═1*!42$┼3╚$╒53%1)4$╤9╚$┼3╚%-014-)1─┼#04╤,60╘@96]╥(",─9╞8@.╘9/
  1068. ═4╩!42$6@4%)/2─5#5$┼/3╩!005)4+*!72$5210╘@861├(",─,#$@.╘┘534)%
  1069. ═4┼.@05)%╚"╘╤,3 ╬+├$╤,*!!3─2@,"╪╬-# -('-╘82!┌,@╘@;&1┴("┴┌,2─╠
  1070. ═>0╘@<╓5├#2!╙8╞,@*'╚╥*2╤┘#2 \/#╨@(#═┴3$╥@1$].1: ┌*0╘-<')╧:╞5├
  1071. ═="!═86,@(#═╘2$6@04-454%,╚%!23╘╔%0╒1)3╘┌@4─]55$┼.10╘[=$┴%╚%)/
  1072. ═551)3─6@5$%+15.@5$┴%╚%!/24┘4#3═=,:!=,╩!=,╥╥@4─]4051%4┌!!3─0-
  1073. ═.╒!23╘╔%0╒13╚$┼4+*!!3─2@4╒1/4─53╚%1(10╘[4─5354╤4╚$┼.╚%╘╤╚%╘╥
  1074. ═╚%╘╙+@╘-(&╤─>2!=,2 [;55,5$┼03%╞@1─┼24╒2@4─]4051)3╘┌@0╘],54╒.
  1075. ═#2!╠9&$@83$╤#2 ^/├╪@<╓╒╒;'0-('-╘82!╨,70-(&╤─82!─,├$-(#╪^/┬!╙
  1076. ═;75╠= ╘@<╫1┴(' ╥= ╘@;&1┴(&<╙,0╘@/├╪^('-═=6╤╘#2!╙=&$@<#-╘#2!╠
  1077. ═9'─@73(@.╫-%0╘].1*!#3╘╤534╪-(&╤─82!┬,3(-(#╪^/┬!╙;75╠= ╘@8╓╤├
  1078. ═#2!┴9&,@<#%╘#2!╙=&$@<#%╘#2!╠9&$@93(╥#2 ^/├╪@<╓╒╒;'0-(&-╠8╨╘@
  1079. ═861├(' ╥= ╘@<╫1┴(' ╥= ╘@;&1┴(&@╙,@╘@/├╪^('-═=6╤╘#2!├;&,-(&%─
  1080. ═8╥!╨,╫0-('-╘82!╨,╫0-(&╤─>2!=,╥ [=$┴)4─2@0╘],54╒.#2!╠9&$@8╙$╙
  1081. ═#2 ^/├╪@<╓╒╒;'0-(&-╠8╨╘@861├(' ╤= ╘@<╫1┴(' ╤= ╘@;&1┴(&8╥,╨╘@
  1082. ═/├╪^('-═=6╤╘#2!├;&,-(&%─8╥!╨,╟0-('-╘82!╨,╟0-(&╤─82!╔,╙,-(#╪^
  1083. ═/┬!╙;75╠= ╘@8╓╤├#2!┴9&,@<#-╘#2!╙=&$@73,@.╫)/5$%4142@>@╘@=&%╪
  1084. ═#2!╠9'─@>╞1╔=┬╤╪(#═╘04),1:!/1╩!$+╥┴:*╒╚╨*0╘@(" [;─]7╚'╞@0╘].
  1085. ═5$%)3┼.@4%)/2─5#5$┼/3╩!#3╘┘35 ╘-(&╤─82!╨,70-(#╪^/┬!╙;75╠='╚-
  1086. ═(&╤─>"!┌;╓]═#2!├<'@@(╙8╘#2!┬97$@8╓]╬='@-('-╘>2!╘96╒╨,0╘@;&1┘
  1087. ═('╔╧;╓╘-(#╪^/┬!╙;75╠= ╘@;&1┘('1┼;7 ╤#6-╧;╟1╪(&-╠8╨╘@861├(",╓
  1088. ═-" [;╘9&4╘54╚%1(1:!#3╘]21$┼.051%#2!╙=&$@73$@.╫)/5$%4142@04┘$
  1089. ═╚%!23╘╔%0╒1%1 ╘@8╓╒╨(&╤╧8╫┴═:6╪@.╫-%1:!)1╩!)5*!)4┌!!╚$╤/0╘%,
  1090. ═╚$╒)3─┼-54╘-(&)├<╥!╬;╫1╪;6┼╬#2!╙=&$@;&]├>&╒╔;@╒╬;╫1╪;6┼╬(&-═
  1091. ═<"!╠;╓-╪;6%╪#2!┬8╓,@;╞]╘>&╒┴> ╘@<╫1┴(&╤╧8╫┴═87@-#6┘╧='┴═87@@
  1092. ═;&1┴(' ╥= ╘@/├╪^('-═=6╤╘>@╘@8╫!╪(",╓- ╘@8╞5╤(&-╧;╟1┘#2!╠9'─@
  1093. ═>╞]╧;0╘@/├╪^('-═=6╤╘#6-╧;╟1┘(&-╠8╨╘@861├(",╓- ╘@<╫1┴(%╘╥(#═╥
  1094. ═3╒1!5$5$╚$%.1*!04─]*14-4142@>0╘@8╓╒╨(&╤╧8╫┼═:6╪-(&)├<╥!╬;╫1┘
  1095. ═;6┼╬#2!╙=&$@;&]├>6╒╔;@╒╬;╫1┘;6┼╬(&-═<"!╠;╓-┘;6%╪#2!┬8╓,@;╞]╘
  1096. ═>6╒┴> ╘@<╫1┴(&╤╧8╫┼═87@-#6┘╧='┼═87@@/#╨\(" [84╤,╚$1/3─4-#2╩@
  1097. ═;&1┴╚",\96]╥8╟5╞╚#═╞25)35*!71:!.145$╚%1/╚$-,14%2╚%1(10╘╩╚'-╘
  1098. ═8:!┬=69╞97*@.╓5╧<╩!"549&15(-*╩!╠9&&@(╙┘┼;╫)┬=68-*╩!╙=&&@8╟5╞
  1099. ═9╞5╥*╙$-#2!╠9&$@(╙ @.╫)%4╘54╚'┼-24┌@04┘$╚'┼-05@-('-╘82!╠;╓-┘
  1100. ═;6%╪#2!╙=&$@;&]├>&╒┴> ╘@;&1┴(",─9╞8-('-╘82!╠;╓-┘;6┼╬#2!╙=&$@
  1101. ═;&]├>&╒╔;@╘-<╞5┴9'!╘<╥!╠9'─@:6┘─97@-(&╤─82!╨;╓╤┘;&┼╙="╤┘#2!╙
  1102. ═=&$@<#%╪#2!╔;╟─-(&╤─82!╨;╓╤┘;&┼╙="╤┘#2!╙=&$@<#%┘#2!╔;╟─-(&╤─
  1103. ═82!╨;╓╤┘;&┼╙="╤┘#2!╙=&$@<#%┌#2!╔;╟─-(&1┼8╥!├;╫5╬='!╘<╨╘@;&1┴
  1104. ═('!╧;'┼╠:7-╘+'─-('-╘82!╨,╟@-(&┼╬>0╘@;&1┴('!╧;'┼╠:7-╘+'─-('-╘
  1105. ═82!╨,╟─-(&┼╬>0╘@;&1┴('!╧;'┼╠:7-╘+'─-('-╘82!╨,╟╚-(&┼╬>0╘@9&5├
  1106. ═(&-╧=6┘╘<'1╙#2!╠9&$@<&]╠>6╤╔<╫0╠>0╘@<╫1┴(' ╙> ╘@:6┘┘#2!╠9&$@
  1107. ═<&]╠>6╤╔<╫0╠>0╘@<╫1┴(' ╙>0╘@:6┘┘#2!╠9&$@<&]╠>6╤╔<╫0╠>0╘@<╫1┴
  1108. ═(' ╙>@╘@:6┘┘#2!╙='─@:6┘─97@-(#╪^/┬!╨<╞]╩96-╘+' ╤>#═╨,7─[<#%┌
  1109. ═#2 ^/├╪@<')╧:╞5├="╤╨,╟@[<#)┘.╫ ╥>@╘@/├╪^('!╥;╓╔┼8╫0╠<#-╪.╫ ╙
  1110. ═>3═╨,╫╚-#2!╠9&$@:&┼─90╘@8╞5╤(#╔─;╓┼╘#2!╠9&$@<#)╪(#═╚241$14┌@
  1111. ═1─%#1:!#2$5#2╨╘@<╓5├#2!╙8╞,@<#%╪#2!╘87─@(#═┘/2┴8,┬╒8,2─-(&╤─
  1112. ═82!╨,╫─-('-┼8╨╘@<╓)├(' ╥>2 [83╘╚63,═63(╔#2 ^/├╪@<╓╒╒;'0-('-╘
  1113. ═82!╘96╒╨,0╘@;&1┴(' ╙> ╘@<╓5├#2!╙8╞,@<#)╪#2!╘87─-(&╤─82!╨,╟─-
  1114. ═('-┼8╨╘@<╓)├(' ╤>0╘@/├╪^('-═=6╤╘#2!├;7 @=&5═<#$@.╓┼&╚%@╤*┼─╥
  1115. ═+5─╤*┼@╥╚#┌@,*!42$5.╚$9!0╘4-(&)═:2 ┌9&]╔=" [25.@5─┼324),10╘@
  1116. ═9&5├(&-╧=6┘╘<'1╙(#═╧5$┴%4┼=)4╘6@4─5!1*!)3╩!214╒!24┘)3─<-(&)┼
  1117. ═<2 ┌86)╧<╟0@.╒!/24┘44┌!!3─2@4─5455).#3╔╨;╓]╨(&┼╬8╥!╔;╞1┼> ╘@
  1118. ═:6┘├(&┼╬9&5╪#2!╔;╞,@:6┘─97@-(&1┼8╥!├;╫5╬='!╘<╨╘@8╞┘┼(#╔╨;╓]╨
  1119. ═#3╔┴8╞]╥="!╥=',-#3╔─;╓┼╘(&╤─82!╨,7@-('-╘82!╪,0╘@;&1┴(' ╤>0╘@
  1120. ═<╫1┴('─╤#2!╠9&$@<#)╪#2!╙=&$@>#(-(&╤─82!╨,╟─-('-╘82!┘,@╘@:╟-╥
  1121. ═(&1╥87<-(&╤─82!╨,╟@-('-╘82!╪,0╘@;&1┴(' ╥>0╘@<╫1┴('─╤#2!╠9&$@
  1122. ═<#-╪#2!╙=&$@>#(-(&╤─82!╨,╫─-('-╘82!┘,@╘@:╟-╥(&1╥87<-#2!─96,@
  1123. ═8╓]╒;╟1╨=',-(&)╬92!╨;╓╤┘;&]╧<" [:5.@252@2┼535*!!╚%1224%.1╘╤%
  1124. ═/╨╘@:╞╒╨('!╧;'┼─;╓┘┼#0╒╨;╓╤┘;&]╧<"!╠9'─@:6┘─97@-(&╤─82!╨;╓╤┘
  1125. ═;&┼╙="╤┘#2!╙=&$@<#)╪#2!╔;╟─-(&╤─82!╨;╓╤┘;&┼╙="╤┘#2!╙=&$@<#)┘
  1126. ═#2!╔;╟─-(&╤─82!╨;╓╤┘;&┼╙="╤┘#2!╙=&$@<#)┌#2!╔;╟─-('-╘>2!╔;╞1┼
  1127. ═> ╘@/├╪^('!╥;╓╔┼8╫0╠<#)╪.╫ ╥>3═╨,╟╚-#2!╠9&$@<#)╪#2!╙=&$@>#$-
  1128. ═(&╤─82!╨,╟─-('-╘82!┘,0╘@;&1┴(' ╙> ╘@<╫1┴('@╥#2!╠9&$@<#-┘#2!╙
  1129. ═=&$@>3(-(&╔╙<┬!─<╞%╫#0╘@;&1┴(' ╥> ╘@<╫1┴(' ╙> ╘@;&1┴(' ╥>0╘@
  1130. ═<╫1┴(' ╙>0╘@9&5├(&-╧=6┘╘<'1╙#2!┬97$@<&]╠>61╧;╞4-(&╔═<"!╨;╓╤┘
  1131. ═;&]╧< ╒╨;╓╤┘9&]╬92!╠9&$@<#%╪(#═├3$]31:!42$6@4$],64=/3@╘@<╫1┴
  1132. ═('@╥#2!╠9&$@<#%┘#2!╙=&$@>3(-(&╤─82!╨,╫@-('-╘82!╪,0╘@;&1┴(' ╙
  1133. ═>0╘@<╫1┴('─╤#2!╩<╫(@9')┴=╨╘@<╟1╙#0╘@='┴╘("=╙04╒%╚%1(24┘'╚%=%
  1134. ═╚$1/╚$5615)9╚$┘)1╘┴4+*!╨24┘+63╩@)╨╘@='┴╘("=44┼╞@5$^@5$%+1:!/
  1135. ═5─52╚%1(1:!73╒),1"$╟#0╘-*┬╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═
  1136. ═+2╘═+2╘-*╩!╟14┘%4─%,╚%%515-424].04),12╒604╤51:!%4┼)/4╩!04─]#
  1137. ═14154─4-#2╔├:&]╦9:!╠9'┬@(╙ ╨#2╚┌;&]╧<*!╠9&&@.╞-╘97┴╘+'@-*╩!┬
  1138. ═97&@.╞1╧;╞4-*╩!╩<╫*@8╓┴╥;╫5╘#2╩@:6┘╪#2╩@:╞╒╨╚#╔╠;╓]╨#2╚┌9&]╬
  1139. ═9:!╥=',-*├╔├=&5╪=*!╚97┬@,&2@.╓-╥#2╩@='┴╘╚"=33╘╒%5$┴)3─>@0╘┴/
  1140. ═2╘5$╚#╚╚)╨╘╩╚&┴┼>* ╨9# ╨#2╚-('1╪=" ╟;─%21┬$╟#0╘╩+2╘═+2╘═+2╘═
  1141. ═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+0╘╩╚&1205=)3┬>@0:!,24┘%+╩"@8:!&
  1142. ═04┴.╚$╤!2$╪╬#0╘╩*┬╩@<╘]-1:!54╘5&54╥@34%#4─]3#0╒├:6┘╔="!═86,@
  1143. ═(#══04-23┌!43┌!)3─┼424%,25╔%╚%1(1:!#3╒5.5$52#2!╠9&$@73$@.╘18
  1144. ═╚$]2╚$19#2!╠<╫(-(#╨\/" @.╫1(1:!$6"\╥╚$╒!2╘53╚$&@3─┼#15*@3$]/
  1145. ═2╘┼.1┌!,24┘%#0╘╩*┬╚╩*╩!═04-23┌!43┌!404═%╚$&@4╒1%4*!)3╩!╪#0╒╪
  1146. ═<╫1┼<"!═86,-(&╤─>"!─>" [;┼5-0─52╚$]&╚$╤/3╒"@251%4─%424].4╨╘@
  1147. ═/├╪^(&-╔;╞┼╘+&1╪#7┴╠;╓]╨(&╤╙<┬!├:'5╬:╨╘@8╞5╤(&9╔>&,@.╫501$%4
  1148. ═1:!#3╘╤534╪-('-┬8╥!─>0╘@8╞-├(&9╔>'─@.╫1)346@5$^@4╒1%4*!)3╩!┘
  1149. ═#2!─97@-(&)╬92!╪;&]╧< ╒─;╓┘┼(&╤─82!╧;&1╪(#═╨3$]4╚%1(1:!,05-4
  1150. ═╚$-(54┘+#2!┼;╫(@8╓┴╒;╞╠-(&]╥82 ╚8╟5╞9╞5╥*2╤┘#2!╙=&$@*&)╒9╞9┼
  1151. ═<┬─╠>0╘@<╟1╙#0╒╞:7┴├('!╚80╘@;&1┴(&]╠9'@-(&]╥82 ╚8╟5╞9╞5╥*2╤┘
  1152. ═(#═╨3$]4#2!╙=&$@*&)╒9╞9┼<┬─╠>0╘@;&1┴(",─9╞8@.╫501$%41:!#2%5.
  1153. ═2╨╘@<╫1┴(&]╠9'@-('-╘82!├:'5╬:╨╘@;&1┴(",─.# @.╓┼.0╒)%05-%╚%1(
  1154. ═1:!#3╘╤534╪-(&5╧<┬!┬=69╞97(-('-╘82!┬=69╞97(-(&)╬92!├,@╘@:6┘├
  1155. ═(&)╒9╞9┼<┬╠╤#6,╥#2!╨;&$-('-┬8╥!─>0╘@8╞-╙(&-╧;╟0-(&%─8╥!─> ╘@
  1156. ═:68@:2╤=,2 [9$^@5╘6@55-%╚&┼╬>:!/4╩!─97─_#2!╔;╟─-(&5╠<╓4-(&1┼
  1157. ═>0╘@9╞┼╬#6-╧;╟0@9&5╪#2!┬;╞4@>&╤╧;╫ -(&╔═<"!─;╓┘┼#0╒╞:7┴┘(&%─
  1158. ═8╥!─> ╘@<&┴┴#2!╠9&$@;╓╤─> ╘@96]╥(&-╚=6┘╦#2!╧<╞$@*&)╒9╞9┼<┬─╠
  1159. ═>0╘@<╫1┴("┴┬=69╞97(╔+'─-(&╤─82!├:'5╬:╨╘@<╫1┴(&]╠9'@-('!╠80╘@
  1160. ═:68@:2╤=,2 [=5!$051%╚'─-(&┼╬>0╘@96╤╙90╘@9&5┘#2!╞:6╪-(&1┼> ╘@
  1161. ═8╞┘┼('┴╠;╓]╨#2!╥=',-(#╨\/" @.╓5.1*!/1╩!═04-23┌!84╒1%4 ╘-*┬╚╩
  1162. ═*┬╩@=$%+1:!!╚%-415"@24┌@>0╘->7-╘97 @;6%├#2!╠9'@@9'─@.╓┘534)%
  1163. ═4╩!/1╩!,3╘]0╚$┼415)!5$┼/3┼,-(&)┼<2!─;╓┘┼(#═╔1╩!$63╘╨╚$┼4)╒.@
  1164. ═2┼535*!!╚%!/24┘4#2 ^/├╪@8╓┼╬:70╠9'─-('-┼8╨╒┘;&]╧<"!╨:&$-(&╤─
  1165. ═82!╧;&1╪#2!╧<╞$@*&)╒9╞9┼<┬─╠>0╘@<╫1┴("┴┬=69╞97(╔+'─-('!╠80╘@
  1166. ═:68@:2╤=,0╘@:6┘┘#2!┼;'-┼#2!─97─-(&9╔;@╘@<╓)├(&1╪#2!┬8╓,@9╞┼╪
  1167. ═> ╘@9&5╪#2!┬;╞4@>6╤╧;╫ -9&]╬92!╠9&$@;╓╤─> ╘@;╫)┴("┴┬=69╞97(╔
  1168. ═+'─-('-╘82 ╚8╟5╞9╞5╥*2╤┘#2!╥=',-#69╔>'@@861├(&1┘#2!╠<╫(@;╓╤─
  1169. ═> ╘@<╓5├(" [:4╒03╒)404┘4(0╘@8╞5╤(&9╔>&,-(&1┼> ╘@8╞┘┼('┼╠;╓]╨
  1170. ═#2!╩;7 @9&]╬90╘-9╞┼╪8╥!╨:&$-(&╤─82 ├)#@╨#2!╙=&$@;╓╤─> ╘@96]╥
  1171. ═(&)╒9╞9┼<@╘@<╫1┴(&)╒9╞9┼<@╘@8╞┘┼(&,╥#2!╔;╞,@8╟5╞9╞5╥*╙$-8╙(@
  1172. ═<&╤┴#2!─97@-(&)╬92!┘;&]╧< ╘@:╞╒╨(&1╧;╞4-(#╨\/" @.╓5.1*!/1╩!═
  1173. ═04-23┌!94╒1%4 ╘-*╩!╘04═%╚$%.╚%┬@4╒1%4*!)3╩!42$6@96]╥╚$)51─9%
  1174. ═4@╘╩╚'1(1:!33╘╤%╚$-(04┘'1:!)4┌!43┌!54╘6@96]╥╚$┼.4╒1%042@3╘:@
  1175. ═;╫)┴#0╒┼;╫)╪<╫1┼<"!═86,-(&╤─>"!─>" [;┼5-0─52╚$]&╚$╤/3╒"@251%
  1176. ═4─%424].4╨╘@/├╪^(&-╔;╞┼╘+&1╪#7┴╠;╓]╨(&╤╙<┬!├:'5╬:╨╘@8╞5╤(&9╔
  1177. ═>&,@.╫501$%41:!#3╘╤534╪-('-┬8╥!─>0╘@8╞-├(&9╔>'─@.╫1)346@5$^@
  1178. ═4╒1%4*!)3╩!┘#2!─97@-(&)╬92!╪;&]╧< ╒─;╓┘┼(&╤─82!╧;&1╪(#═╨3$]4
  1179. ═╚%1(1:!,05-4╚$-(54┘+#2!┼;╫(@8╓┴╒;╞╠-(&5╧<┬ ╚8╟5╞9╞5╥*2╤┘#2!╙
  1180. ═=&$@*&)╒9╞9┼<┬─╠>0╘@<╟1╙#0╒╞:7┴├('!╚80╘@;&1┴(&]╠9'@-(&5╧<┬ ╚
  1181. ═8╟5╞9╞5╥*2╤┘(#═╨3$]4#2!╙=&$@*&)╒9╞9┼<┬─╠>0╘@;&1┴(",─9╞8@.╫50
  1182. ═1$%41:!#2%5.2╨╘@<╫1┴(&]╠9'@-('-╘82!├:'5╬:╨╘@;&1┴(",─.# @.╓┼.
  1183. ═0╒)%05-%╚%1(1:!#3╘╤534╪-(&5╧<┬!┬=69╞97(-('-╘82!┬=69╞97(-(&)╬
  1184. ═92!├,@╘@:6┘├(&)╒9╞9┼<┬╠╤#6,╥#2!╨;&$-('-┬8╥!─>0╘@8╞-╙(&-╧;╟0-
  1185. ═(&%─8╥!─> ╘@:68@:2╤=,2 [9$^@5╘6@55-%╚&┼╬>:!/4╩!─97─_#2!╔;╟─-
  1186. ═(&5╠<╓4-(&1┼>0╘@9╞┼╬#6-╧;╟0@9&5╪#2!┬;╞4@>&╤╧;╫ -(&╔═<"!─;╓┘┼
  1187. ═#0╒╞:7┴┘(&%─8╥!─> ╘@<&┴┴#2!╠9&$@;╓╤─> ╘@96]╥(&-╚=6┘╦#2!┼;╫(@
  1188. ═*&)╒9╞9┼<┬─╠>0╘@<╫1┴("┴┬=69╞97(╔+'─-(&╤─82!├:'5╬:╨╘@<╫1┴(&]╠
  1189. ═9'@-('!╠80╘@:68@:2╤=,2 [=5!$051%╚'─-(&┼╬>0╘@96╤╙90╘@9&5┘#2!╞
  1190. ═:6╪-(&1┼> ╘@8╞┘┼('┴╠;╓]╨#2!╥=',-(#╨\/" @.╓5.1*!/1╩!═04-23┌!8
  1191. ═4╒1%4 ╘-#2╩@=$%+1:!!╚%─═4╒1%4*!)3╩!42$6@96]╥+4)51─9%4@╘╩╚&-(
  1192. ═04┘'15.@1┼)/3:!!0─]61:!!4─4┌╚$].3%╞@4$╤/5*!,05-4╚%!!4┼2@3╘:@
  1193. ═14%#2 ╘╩╚%9%4┼1)0╘%,╚$-(54┘++*!$3╘╪╟5*!03$]4╚$╤!4╒2@4$])3┼0╠
  1194. ═╚%!,3╒2@5╘┼42*!┼;╫(-#65╧<╟┼╙=&5╨(&╒┴8╨╘@;&1╪(&1┘(#═╬54╒"15*@
  1195. ═3╘:@3$]/4*!)5$52051)3╘┘3#2!┬97$@9&]╬92 [:4:@1%─],*!)5"=3╚$╔5
  1196. ═4╒2@0:!03╘┼.5 ╘@/├╪^(&-╔;╞┼╘+&1┘#2!╙96,-*╟┼╠;╓]╨╚'!╚80╘╩╚&╤─
  1197. ═8:!╧;&1╪#2╩@;╫)┴╚"┴┬=69╞97(╔+'─-*╩!╙=&&@*&)╒9╞9┼<┬─╠>0╘╩╚'!╠
  1198. ═80╒┘;&]╧<"!╔9┬!╔+%╘╤#2!╔;╟─-(&5╠<╓4-(&1┼>0╘@9╞┼╬#2!╙8╞,@9'@-
  1199. ═(&)├8╥!╞:7┴╪#2!─97@-(&)╬92!┘;&]╧< ╘╩9&]╬9:!╠9&&@;╓╤─> ╘╩╚&]╥
  1200. ═8: ╚8╟5╞9╞5╥*2╤┘#2╩@<╫1┴╚"┴┬=69╞97(╔+'─-9&]╬92!╥=',-#69╔>'@@
  1201. ═861├(&1┘#2!╨:&$@(#═╫1:!/3─╤9╚%!,3╒2@5$┴%╚$╤!4╒2@4$%25*!/1╩!%
  1202. ═04-(╚$-(54┘+#2!╠9&$@;╓╤─> ╘@96]╥("┴┬=69╞97(╔+'─-('-╘82 ╚8╟5╞
  1203. ═9╞5╥*2╤┘#2!╨;&$-(&╤╙<┬!╧;&1╪#2!╙96,@(#═╔35!/4┼1!3┼0┴#2!┬97$@
  1204. ═9╞┼╪8╨╘@9&5╪#2!┬;╞4@>6╤╧;╫ -(&╔═<"!─;╓┘┼#0╒╞:7┴├('!╚80╘@;&1┴
  1205. ═(",─.# -('-╘82!╧;&1╪#2!┼;╫(@8╟5╞9╞5╥#2!╙=&$@8╟5╞9╞5╥#2!┬;╞4@
  1206. ═8╙(-(&┼╬8╥!┬=69╞97(╦,0╒├,┬!╨;&$-(&1┼> ╘@8╞┘┼('┼╠;╓]╨#2!╩;7 @
  1207. ═9&]╬90╘@/#╨\(" [94┘$╚$]&╚&╒!0╒)/╚%┼35$50#2╚╩*┬╩@:4┘)5$┼!3*!,
  1208. ═24┘%╚%-%5%50#0╘╩*╩!╘2$6@0╘]-345.5$5$╚$╤)3─53╚$)%3$]7╚$%21:!.
  1209. ═3╒>@5$%+14┌@0╘%21:!/1╩!"6:!42$4-*┬╩@0╘%,3$┼.1┌!23╒5424┘%+@╘╩
  1210. ═9')┴=┌ ^/├┌@;6]╓92╤╘>#$[>#&@╚#══3╒9%╚%-4549&╚$┼.5$^@6─523┌!0
  1211. ═04=%#2╩@/├╪^╚&╒╧=╞4╠='@╥.╫@╥╚* [=╘┴%4─6@252@0╘%.╚$)%╚$╒/1$┼&
  1212. ═245$#2╩@/├╪^╚&╒╧=╞4╠='─╤.╫─╤#2╩@/├╪^╚&╒╧=╞4╠='─╥.╫─╥#0╒─<╞%╫
  1213. ═(&╤─82!╞:6╤╠#2!┬;╞4@.╟-┼=&5╧<@╘@/├╪^('-┼=&)╒9@╘@:╞╒╨(#╔╙971╒
  1214. ═< ╘┌<╓5╘96]╥(&╤─82 ├/&5╧<╞)╒9┬ [=5-%╚&5╧<╩!"549&15*@24┘35$5!
  1215. ═1*!/1@╘@<╫1┴(&)╒9╞9┼<┬ [1$┼34$╤!6:!"549&15*@1─]2╚$1205=)3─<-
  1216. ═(&╤─82 ├/╞5╧<╞)╒9@╘@<╫1┴(&)╒9╞9┼<┬╠╤#0╘┌<╓5╘=7 @<╓5├(" [;4%+
  1217. ═1:!355)%╚%@╤/%@╥#2!╠9&$@>#(-('-┬8╥!╪,0╘@8╞-╙(#╔├;╓┘╘#2!╠9&$@
  1218. ═>3(@.╓┼&╚$┘/5"╥@4╒=!4*!╨,:!!3─2@<#(-(&╤─>2!┘,0╘@<╫1┴('─╤#2!╙
  1219. ═='─@>3(-(&╤─82!╪,0╘@;&1┘('@╥#2!╙='─@>#$-('-╘82!╪,@╘-('-┼8╨╘@
  1220. ═<╓)├('@╤(#═╬3╒>@83╒$6 ╘┌8╓]╬="!╙=&$@9'@-(&╤─>"!╪,2 [<%54╚%@╤
  1221. ═╚$┼.5$^@>"╥@3─]7╚%=%╚$-!3╩!44─%32*!╪,0╘-8╓]╠=6╒╬('1╪82 [9─┼.
  1222. ═1*!42$6@1─┼24╒2@0╘],54╒.╚$9/4╩!╪#2!╠<╫(-(&╤╙<┬ @.╫1(15)%╚$%2
  1223. ═1:!8,2\╪╚#$╥.*!"651%╚$),3╘-+4╨╘@;'-╥(" [=╘┴)0╘┬@345!3┼.@6#$╧
  1224. ═,3:@,├4╓╚$)95$6@0─╤/0╘═3#2!╠<╫(-(&)├8╥ ┌979┼;┬ [=╘┼42*!!╚%!/
  1225. ═4╒-)0─╤%╚$585%)!╚#$╥.*!"651%╚$),3╘-+#2!╠9'─@(╥0╪," [24:@4╘\╠
  1226. ═╚%-%5*!42$6@2$┼'2*!"250-('-╘>2!┬=69╞97(-(&-╠8╨╘┌979┼;┬!┴9&,@
  1227. ═8╟5╞9╞5╥*╙$@.╓%$1*!)3╩!42$6@3┼5-0─52╚$]&╚#(╒-╩!"651%╚$),3╘-+
  1228. ═4╨╘@<╫1┴(&)╒9╞9┼<┬╠╤#0╘@<╓5├#2!╠9&$@>3(@.╓-!3$-53$%41:!$60╘@
  1229. ═<╓)├('─╤#2!┬8╫,@.╞-╧;╟0╥(#═╔4┌!9,├┘9,3\-(&5╧<┬ ├)&9╞(#═╧5$┴%
  1230. ═4┼=)4╘6@1%─]63$═63(-(&%─8╥ ├)# ╤#3╔├;╓┘╘,┬!╙=&$@9'─-(&-═<"!─
  1231. ═>" [=╘┴/)╒.@0─┼'1╘52.╩!$6:!/4╩!$6#\-(&)├8╥!╙=&5╨:6┘╪(#═╔1╩!$
  1232. ═6"╥@5$┴%3┬╪╬+@╘@:╞╒╨('-╘97!╔;╟─-#7-╘97!╔;╟@@;&1┘('─╤#2!├<'─@
  1233. ═>3(-(&╤─82!┬:71╨+'@@.╫┬@0╒524─5.5$╤9╚$-/3┼1!24┘3╚%@╤#2!╙=&$@
  1234. ═;╓╤─> ╘@<╫1┴(&-╚=6┘╦#2!┬8╓,@>&┼╬8╫─@.╓1/╚%=%╚%-415"@1─]25╘%2
  1235. ═1%.@3╒*@0─%#2╒=!4─13╚$┼.╚'─_#2!╩;7 @>&1┼8╫─-#7┴╔;╞-┘(&╤─82!╞
  1236. ═:6╤╠#2!┬97$@;╞]╥;7┴╔;╞,-(#╪^/┬!┼;╫)╪<╫1┼<"╤╔;╟─-;╞]╥;7┴╔;╞,@
  1237. ═/├╪^('┴╙=&5╨+&┼╬>0╘->&1┼8╫─@;&1┴(&9╔;&╨-(&)┼<2!╬;╫)═>&1┼8╨╘@
  1238. ═/├╪^(&5╧<╟┴╙=&5╨+&1┼>0╒╬;╫)═>&1┼8╥ ^/├╪@>'-╘97 ╠9&5┘#0╒╙=&5╨
  1239. ═:6┘┘(&╤─>2!┘,0╘@;&1┴(&)╔=' ╠>" [>#╒8,0╘@<╫1┴(&]╠9'@-(&╤╙<┬ @
  1240. ═.╫╞@1$]%4╘╪╟5*!54╘6@0╘┴53─═3#2!┼;╫(@;╓╤─>" [<╘^@5╘6@2┼535*!7
  1241. ═04┘4╚%1(1:!"250-('-╘82!╧;&1╪#2!├<'─@>3(-(&)├<╥!┘9&5├>0╘->6┼╬
  1242. ═8╫─@;&1┴(&9╔;&╨-(&)┼<2!╬;╫)═:6┘├#2 ^/├╪@96]╥>7-╘97 ╠:6┘┘#6┘╧
  1243. ═<╞╒╔;╞,@/├╪^('┼╙=&5╨+&┼╬>0╘->61┼8╫─@;&1┴(&9╔;&╨-(&)┼<2!╬;╫)═
  1244. ═9&5├#2 ^/├╪@96]╥>7-╘97 ╠9&5┘#6┘╧<╞╒─96,@/├╪^('┼╙=&5╨+&1┼>0╘-
  1245. ═#2╚═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═#2╩@8╘╤%04┌@55 -
  1246. ═#6-╠96%╬=7 @;&1┴('9═8╫-┬(#═╙5╘┼40╘┬@0╘┴!4╩!23╘╓@0─%#2┌!)3@╘@
  1247. ═86┘─(",┼,3$╤,3 ╤,#$@.╘1%1─%53%0-('-╘82!╓;6-╙8@╘-(')╘<╥ @.╘)9
  1248. ═12$-#2!╘>'0@)╒-024┘!3*!#4─%#2╘52╚"<-('1╪=" ╟4╘╤*╚#8╧.34╟#0╘╩
  1249. ═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+2╘═+0╘╩╚'-%5*!54*!"252@
  1250. ═5$%"3$4-#2!─<╥!>(#═├3$5!4╩!43┌!%3─2@3╘:@4$%'10╘@(" [<╘^@5$┴!
  1251. ═5*!404),15.@4╒1!4┼2@3╘┌@0:!004=%╚$)/54┘$05)9#6)╔=' @;'5╨(#$╓
  1252. ═(#╠╤,├┬@94┘44─┼%4┌!&3╒*@> ╘@9&9┬("4╤,3$╤,3$╤,0╘@9&9┬("4╨,3$╤
  1253. ═,3$╤,0╘@9&9┬("4╨,#$╤,3$╤,0╘@9&9┬("4╨,# ╤,3$╤,0╘@9&9┬("4╨,# ╨
  1254. ═,3$╤,0╘@9&9┬("4╨,# ╨,#$╤,0╘@9&9┬("4╨,# ╨,# ╤,0╘@9&9┬("4╨,# ╨
  1255. ═,# ╨,0╘@+2╒>#0╒╙:6╪@.╫1!0─╤%╚$]&╚%-)3─53+* ╤,├"@0┼┼415,-8╓]╙
  1256. ═(&5╤=2!╙:6╪╦,3(╪(#═╘04),1:!/1╩!#3╒-)3─53#2 @(#═┬3╒1(╚$]&╚%1(
  1257. ═15-%╚%1224>@5$%"3$53╚$%210╘@(" [0╒524─5.5$╤9╚%-%5*!54*!&4─]-
  1258. ═╚&)┴<╓┼├#7╔─:78@97%╒(&-╧<╥╠╤,├@@.╓1)5─┼324].╚%1!0─╤%#71═871╚
  1259. ═,2!┼<74@>╞1╔=┬╠╙.#0@.╓╒!5$┬@5$%"3$6@3╘:@1┬┴8*3╒8*┼@╧,├4╓#71═
  1260. ═871╚,┬!┼<74@=&╒┴=&@╤*╙4╤,┬ [<╘5#3╘┘$╚$╒!5$┬@5$%"3$4-<&]╠>6╤╔
  1261. ═<╫0@97%╒('1═871╚,┬╠╒,3(@.╓╤)4╒2@3╘:@4$],64=/3┼,-&┴╚:&┴╚:&┴╚:
  1262. 8&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:
  1263.  
  1264. END
  1265.  
  1266. BEGIN 666 CUBE3D3.2.O
  1267. ═ ("╔ (╘@╘(╘┴╘*╘8╘"─/"1"-&-"@ *─?┴?╬╔@(7\3+╥!─╨41$1$@(" @(" @
  1268. ═(" @(" @0╒5"13-$(%8╙+├(-#2 @(" @(" @(" @(" @(" @($)9#9\@(" @
  1269. ═4╒1%4$┴%3┬!*541$╞2 @("!'14]21╘4@5$%93$]2#0╓;("!#2$5#2╥!/550@
  1270. ═5$┴%($╔!3┬╪@.34@25-3544@3╘8-┼┬ @0╙╒(04-+24┘'╞╥!&3╒(@34]212!$
  1271. ═151!24╤3(0╘-'1╓>$─8╤+╘8╥─┬ ═($┼.0╥]$14,@6"╒23╒1!5$┼/3@╘='1)&
  1272. ═,╥]&-)(@+2!)3─,╧1$5#(%─═4─]4051)3╘╪-'1╘21├4╧1├:2("╘@24┘#+╘1%
  1273. ═0╥!:+5)/5$%424].#1╘=$┬!&-╥ @─┬ ═(%)%4╘54#1╘=$┬ ╦+╥╘@─┬ ═(%╔/
  1274. ═3╘╘@24╪╧3╒54#1╘=$┬ @2" @─┬ ═(%1/1╘=,12!(241$14╪@4╒521─%#15,-
  1275. ═'1╘24╒!!0╘62("╘@5$]'1╘╤%(%-54─9!0╘4@1─┼,3$┼.1╨╘-("!04─534╥!1
  1276. ═(%1/(%%5250-#04@(" @("!04─534╥!!3┼─@2╘59(%1/($)%1╘┼.#0"╤^_ +
  1277. ═(-+_╥-#╓┘╧╤,╧($@┘/_) /#┘╩9*%(╪4┼╩92%)╪4╔╩0&-(="╔─╥#2_┌─ ├2'0
  1278. ═╩4!╔#(7[╩06%_*─ ╚ "┬ !┬1^\┴╔$)#┘&*7[:2┬%^┌7\:0"%_*  ┌(╦@$-#─
  1279. ═╩0"%╚┌─╨┴:2@ *(8╩0"1╚\├0^^:─╥═#╓╩0"%╚┌─╨┴:2% ╩╘8╘"╟╤"0┌-&-"╔
  1280. ═ (57┴5┬%685@┴3^%085 ┴4*%885┬┴6.%9(5┼┴6:%4*─!┴;6╔0(5╤6"#─_\╞%
  1281. ═╘ ╬┼8<─\\%'╞84╨-@\╞)╘ ╞┼8?!$╤╞%,#8/)┴═ +╔6+)// ╒┘╞),#8/)┬═ )
  1282. ═╔6+╨*,9┬3 ╓#╥8?0"┌5├╥3╙╨&>9├3 ╓#╥8╧0":5├\ ╙&8╘╨-@\╞(╘ 9,1╚),
  1283. ═#8/)*] '┘╟'╞<4╨-@\─═╘ ╫&<<9╤$"├╞<>9╤3 ╓#╥4├0":6╒20&%═4╨-@\─@
  1284. ═╘ ╞┼4$─!┴5!,#8/)4= #3)╞.>!┬┼9&5┴╥7┬0 ╬┼╪┴608╔65┼8╠┼╪─ +╔>(5┼
  1285. ═&*5╞96/)>) "┌7┬%9├┬┼9>5╞╠ )╔>(5╟&*5┼96;)>) "┌7┬%:!┬┼9&5╞╥7┬0
  1286. ═ ╬┼╪┴6─╪╔63┼9╦ ":7┬%:┴┬┼9&5╚╥7┬0 ╬┼╪┴6╠╪╔63┼9[ ":7┬%;!┬┼9&5╟
  1287. ═╥7┬0 ╬┼╪┴6╘╪╔6├┼9+ ":7┬%;├┬┼9>5─╠ )╔>(5╧&*5─967)>) "┌7┬%<!┬╞
  1288. ═9[╘ ─*9╚?0"0┴:6╞9[╓ ├╙┬╞:/╓ ├╪6╞╔╞6]@(\0#┴┴)_╓─!"┴┴)_╓─!3-╓#
  1289. ═"╚6╟.*9╬╧0"0╔╞╫] ) ╪╔╞╧] ) 8╔╞╤] ) 0#┴┴)_╓─!2┴┴)_╓─!3 >$2┴┬╞
  1290. ═:7╓ ├╙┬╞:╧╓ ├╪6╚.*9╦╧8"/╔╞╙]@(\╪╔╞╫]@(\╪╔╞[]@(\0#┴┴)_╓─!2┴┴)
  1291. ═_╓─!3#╓$2┴┬╞:7╘ ─!┬╞:╟╘ ─(6╔╔╞^]@(\╪╔╟#]@(^%╩╩9╠╧8"/.*9╬_8"/
  1292. ═.*9═_8"/.*9╦_8"/$ ╪82?]╔ 4╚82?]╔ 4╥ ┴$╚8╔╞╔] ) ╪╔╞╟] )"%╩╤┬╞
  1293. ═;+╘ ─*9═?0"0.*9╦_0"0.*9╬_0"0$ ╪82?]╔ 4╚82?]╔ 4╥╓┴$╚8╔╞┼]@(\8
  1294. ═╔╞╔]@(^%╦!┬╞;[╘ ─*9╨?0"0┴:╓╔ (6├╔0*%╔*((╩0"@ )&├╥-#[┘╩3*╘/2@
  1295. ═ (11╔%&┘ );0 ╘╥*┴852┘┼$@╤86┼5╘╔*2╚57╤3^╨ ╚4_╔5╟%0; "┴4&┼6$╔*
  1296. ═2╚58╤4"0 ╚5 ╔6#%0╔ "┴4*┼4/#!╩0"%╚┌4"┴:2╔ (7[╩4"%_*572╔ '╚("$
  1297. ═╚╪3[&(5╚9:2%╔*5╚9?╥%_*58..57╩╬┬─8- "┘╞"─8*─ 4?═(4:.1╚┌─ ─?═╚
  1298. ═┬,19╠.^┼╚╘╞ ┴:.%^] $┘╩3╞_,╦0╓─╙═┴*╘8╘$─"├1├0╩0┴% ╚4"3&┌"9╘5%
  1299. ═(&)204┼.+"!72$%4($1/(%┼/52!704┘4(%1/($1/(%1/3─┼'2%0_╩0"%8(58
  1300. ═╩?^%6857╔%&┘ ):%─╠┬┘ ):%─\┬┘ ):%┼,├&4╦─ ┼╚65╥+─ ┼╚66╥+─ ┼╚6╬
  1301. ═╥,92╬0"6┴:_(╬0"6┴;#(╬0"6┴;'(┴%&──╩6┼┴2882?]╔ 84╚╠28╪\2┬%╠╩6╚
  1302. ═┴2882?]╔ 84╚╠28╪\2┬%╠┌6╦┴2882?]╔ 84╚╠28╪\2┬%═*23╔::%)┴┴)_╓─!
  1303. ═┴2┬╤)├├╤*!┴┼╠╚6╥╔:╞%)┴┴)_╓─!┴2┬╤)├├╤*!┴┼╠╪6╙╔:╥%)┴┴)_╓─!┴2┬╤
  1304. ═)├├╤*!┴┼═(6╘╔)2┼╔╪4╞&$╟_:0&%*+$╞./$╚&&6╥┴;*┼╩╚4╞&$╟_:0&%*+$╞
  1305. ═./$╚&&6╙┴;.┼╦84╞&$╟_:0&%*+$╞./$╚&&6╘┴92╩╧("0╔;*%(┴┴)_╓─!┴22╤
  1306. ═(├├╤)*9╤╪$#╨%(3[╔'&%)┴┴)_╓─!┴2┬╤)├├╤**3[&&┼ ┴9+%5[ "┴5?%6) "
  1307. ═┴5┬┼╠╪4┬&$╟_:0&%)+$┬./$─╪$#╨$*1╤┴2882?]╔ 84╚╠28╪\2@8:4"%─\59
  1308. ═╠ *%6<5@─ *%8*25╔:6%)┴┴)_╓─!┴2┬╤)├├╤*(6╥╔:┬%)┴┴)_╓─!┴2┬╤)├├╤
  1309. ═*(6╙╔:╬%)┴┴)_╓─!┴2┬╤)├├╤*(6╘╔):┼╔╚4╞&$╟_:0&%*+$╞./$╚&&6╥┴;*┼
  1310. ═╩84╞&$╟_:0&%*+$╞./$╚&&6╙┴;.┼╦(4╞&$╟_:0&%*+$╞./$╚&&6╘┴;2─╦╩6╟
  1311. ═┴2882?]╔ 84╚╠28╪\2@89;*%╠╩6╩┴2882?]╔ 84╚╠28╪\2@89;.%╠┌6═┴288
  1312. ═2?]╔ 84╚╠28╪\2@89;2%╦╩╩\@)"┼╠╚4┬&$╟_:0&%)+$┬./$─╔╟'@0/ 4┴/╬─
  1313. ═<84╞&$╟_:0&%*+$╞./$╚╔/╠8:4"%┼<57╠ *%5\58─ *%6*6╙┴2(82?]╔ 84─
  1314. ═╠2(╪\23@0/ 0╔'&%)┴┴)_╓─!┴2┬╤)├├╤*!┴╔0(66╤5╞╨ ╚59╤6"0 ╚5@╔*^┼
  1315. ═╔84╞&$╟_:0&%*+$╞./$╚┴;*┼╩(4╞&$╟_:0&%*+$╞./$╚┴;.┼╩╪4╞&$╟_:0&%
  1316. ═*+$╞./$╚┴;2─╠*6╞┴2882?]╔ 84╚╠28╪\2@89;*%╠╩6╔┴2882?]╔ 84╚╠28╪
  1317. ═\2@89;.%╠┌6╠┴2882?]╔ 84╚╠28╪\2@89;2%═*2╤╔:>%)┴┴)_╓─!┴2┬╤)├├╤
  1318. ═*!┴┼╠╚6╥╔:╩%)┴┴)_╓─!┴2┬╤)├├╤*!┴┼╠╪6╙╔:╓%)┴┴)_╓─!┴2┬╤)├├╤*!┴┼
  1319. ══(6╤╩╦╥ ─*6╥┴2(82?]╔ 84─╠2(╪\22╞<>! \!2$^┌1╤┴2882?]╔ 84╚╠28╪
  1320. ═\2┬─^╤┴╔0(6╧╤5>╨ ╚57╤5┬0 ╚58╔;.%(┴┴)_╓─!┴22╤(├├╤).! \!"─<84╞
  1321. ═&$╟_:0&%*+$╞./$╚&&┼ ┴;#%6; "┴5╟%8) "┴6"┼═?!'╔94╪┘9*╚╔; ╪┘9:%
  1322. ═)┴┴)_╓─!┴2┬╤)├├╤*(7[╔:\╪┘96╚╔98╪┘9.%)┴┴)_╓─!┴2┬╤)├├╤*,7[, _&
  1323. ═4╧ *┘┼'╞4>91╤┼+0]╞"┼─╚7[╔9.%_*65┴?╓┼┼╚7^(-"+╔96%^┌66┴?╥┼╦╪7]
  1324. ═╔;"%_┬#0┬\92╘ -,=╪╬─4;─ ┼╚65╥+─ ┼╚66╥+─ ┼╚6╬╥(11╔)6┼╔84╞&$╟_
  1325. ═:0&%*+$╞./$╚┴;*┼╩(4╞&$╟_:0&%*+$╞./$╚┴;.┼╩╪4╞&$╟_:0&%*+$╞./$╚
  1326. ═┴;2─┼╩6╞┴2882?]╔ 84╚╠28╪\2@89;*%╠╩6╔┴2882?]╔ 84╚╠28╪\2@89;.%
  1327. ═╠┌6╠┴2882?]╔ 84╚╠28╪\2@89;2%═*2╬╔:>%)┴┴)_╓─!┴2┬╤)├├╤*!┴┼╠╚6╥
  1328. ═╔:╩%)┴┴)_╓─!┴2┬╤)├├╤*!┴┼╠╪6╙╔:╓%)┴┴)_╓─!┴2┬╤)├├╤*!┴┼═(6╬╩╦╥ 
  1329. ═─*6╥┴2(82?]╔ 84─╠2(╪\22╞<>! \!2$^┌1╤┴2882?]╔ 84╚╠28╪\2┬─^╤┴╔
  1330. ═0(65╤5>╨ ╚57╤5┬0 ╚58╔;.%(┴┴)_╓─!┴22╤(├├╤).! \!"─<84╞&$╟_:0&%
  1331. ═*+$╞./$╚&&┼ ┴9;%6; "┴5╟%8) "┴6"┼┼87[╔9:%_*6╧┴?╓┼╠(7^(-"+╔96%
  1332. ═╦┌66┴;#&4╧ #3!&*╔9*%_:63┴?┌┼╦╪7[╔;"%_"#0┬╓!╙04╒%(%1(24┘'(%=%
  1333. ═($1/($5615)9($┘)1╘┴4+"!╨24┘+63╚@5%)9(%1/(%1!2╘4@3╒9%4┬!42$4@
  1334. ═5╘]23$0┴;─%21┬&┼4- +╩0"%╚┌4"┴:1,┘╪╬╔ (6├╩4"%╔#┬┼_>7[╠!.┼_╩3\
  1335. ═┴?╥$_╩7[╔/╓$^╪7]..7[┴6>╞^╪╔*2─╔*─ 6@@(2├&&6─┴:0╪╔?[┼_+ $2?]╔
  1336. ═ 85╚╤6>0 ╘╥-├:3\╤/┌] (^%_87^─ -,╪╪╥┼4/!3╔╞>┼9╘╔&_╧ 0┘6┬0,<╦0
  1337. ═]:7]1?┘1╚┘&├8$┬┼_5&├─:.╔_╪7]┴?┌╔@$6├┴:/0 ╬:─:.5╚╠ -┼9\├*╘,╔,
  1338. ═38╤┼9╘┬┼_47^4:.1╚┌7^┴?╒╚╥,╦0╠╓"╞9┌5╟2─;^\!#┼:) ╤╥═#╒╔?╒%_┴&├
  1339. ═─:-@2*7]$:.1╚┌╟_┴?╓%_╩╞ 1:.%╚] "┘╩1╚┘6┬╨ ╓5╟╥,╦0╥─╥@├&5╟2*7]
  1340. ═1?╪1╚┘&├╔?┌%_6├(╥═"╙8*50\%.╞9┌5╟2─;^\!#┼:) ╤╥═#╒╔?╒%_┼&├─:-@
  1341. ═2*7]4:.1╚┌╟_┴?╓%_╩╞ 1:.%╚] "┘╩1╚┘6┬╨ ╓5╟┬,╦0╥─╙╫├&5╟2*7]1?┘1
  1342. ═╚┘&├╔?┌%_6┬(╥═"╙8*9╟╔6=*1╧[╨$.5╚─#'*╘/6┼_47^$:.1╚╓!(╔?╘1╚┘&├
  1343. ═╩?^%_87^╩8!%╚╪6├╘ +╞╔&├┼:+ #96>(╥═#*3$╩-96=(╔?╒%_┴&├─:.┼_╚7]
  1344. ═:(├*╘+-@╔/╥] (^%_4╔%_87]╤/┌╨?╩50\#╩╞:/ ,╔6┴*.,├┼9┘ $╥═#╪8&5╚
  1345. ═2*7]4:.1╚╓┴&_3├╨!╠╦0┘4╥╤├4┬╔@(7]1:.%╚] "┘╩1╚╥═#13+&-╔╞├╨%*5╚
  1346. ═2├┴(╔?╘1╚┘&├:,├┼9┘ *╥═#╨╔?╘1╚┘&├8&5╚1╧╘╪\ ;*╘-],\╪╒(╩8"%_46├
  1347. ═┴:/0 ╬:─:,╦0╥╘╙╙├:50\#╩╞:/ ,╔6┴*.(├┼9┘ $╥═#╪8&5╚2*7]4:.1╚╓┴&
  1348. ═_3├╨!╠╦0┘4╨╧├─┬╔@(7]1:.%╚] "┘╩1╚╥═#13"^.╔╞├╨%*5╚2├┴(╔?╘1╚┘&├
  1349. ═:(├┼9┘ *╥═#╨╔?╘1╚┘&├8&5╚1╧╘╪\ ;*╘-],<8┘(╩8"%_46├┴:/0 ╬:─:,╦0
  1350. ═╥╘╤╤├╩╘8╘"╟╒├1├08%-024┘!3"!#4─%#2╘52(%-,2┬ ╓+╙─╒            
  1351. ═                                                            
  1352. ═                      #_?╙\?#╨<# ?]_/╤\/!╨,!_╫\_'╨\' ╨'_?╙\?
  1353. ═#╨<# ?]_/╤\/!╨,!_╫\_'╨\' ╨'_?╙\?#╨<# ?]_/╤\/!╨,!_╫\_'╨\' ╨'_
  1354. ═?╙\?#╨<# ?]_/╤\/!╨,!_╫\_'╨\' ╨'_?╙\?#╨<# ?]_/╤\/!╨,!_╫\_'╨\'
  1355. ═ ╨'_?╙\?#╨<# 1╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:
  1356. ═&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:
  1357. ═&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:
  1358. !&┴╚:
  1359.  
  1360. END
  1361.  
  1362. BEGIN 666 SHAPE3.2
  1363. ═ 1╨┴'   ├╥!#54)%,╘0@4╘┴!4$4@24┘)5"!04─]'4─%- $<<!0"7-3$╠,├4╒
  1364. ═.╔<╒,┬╨╤,├<┌┼╙4╒+#(╒-3╩7-38╠,3(╫.╔╨ ;┴╤┬ (\@34%)3┬!04─]'4─%-
  1365. ═(%-405)44╥!!5"!,24┘%(#4╨,#  =!╤├ #╚ ┬!╤─ (\@4%)/1╒)!32!.3╒1%
  1366. ═4╨":'&╪ ├╥!33$╚@-┬\╤-┬\┘-0"╨''@ ├╥!$051!($9/4─╒!5"!)4╙╚ ╒┴╤]
  1367. ═ (\@3┼5-4$])3┼13+%@╤+%─╤+%╚╤+%@╥+%─╥+%╚╥+"╪╬+@#╫'(( ├╥!42$4@
  1368. ═4$],64=/3┬!,25-4("╔-55-4*┬!"10 5'8< ├╥!415)-24┘!5$5$(%=)5$@@
  1369. ═02!:15)/(0 ;'8─ .@ ^'8╨ ├╥!/1┬!#3╒524╘4╠(%1(15)%($┼3($$@3$]4
  1370. ═($]& %╪=─0"/($154$╤)0╘%424].($1205=)3─<@3$┼.15, @╤╓3 (\@5╘┴%
  1371. ═3┬!&04-%4╥!!4─5.)╒0@0─5)3─<@1─┼,3$5$ *8=┼@"/($$@1─%35"!04─]'
  1372. ═4─%-(%=/54╤$3┬=4($1205< ╥┴╓@ (\@5$┴%(%-!344@3$┼.12!45╘┼#12╨@
  1373. ═0┼54(%1(25, ┌!╓┼ (\@25,@1╘]/1"!%3─]51╘@@1─]2($┘/5╥$ "┴┌╟ (\@
  1374. ═3╘8@0╘]54┼-%+"!&3╒(@1─┼,3$5$($9!0╘53 "╠>╩ "/(%1(25,@25,@3─\@
  1375. ═3$].1╘52($%.($┼34╒5% #$>╩@ ┌ %8>═ "/($9%14╨@1┼)%12!43╥!0550@
  1376. ═64]54┬!/5╘╪@1$%400!\'╦─ ├╥!)3┬╨@0┼54($-(04┘'12!42$4@4$]+12!)
  1377. ═3┬!,24┘% )@>╧@"/(#4╨,#4@5$\@55-%($,╤($%.1"!#,@">'╠@ .@##'═( 
  1378. ═├╥!33╒)262!!0─]55"!33╘╒%($]&(%1(12!,25143$4 ╫┴[7 (\@0┼5'4╥╨@
  1379. ═15(╬+┬╪@1─5!5%5215, _┴[< (\@5$┴)4╥!705,@02!214%,(%)54╘@@2─]"
  1380. ═+@ $'^8 .@ ╟'_  ├╥!!3─0@248@64]5($9%14╨@4╘\@24┘#3$┼.140╠ $0?
  1381. ═^@"/(%=2251%(%1/(%-*541$0$┘752┘%1%4 2┴\$ 3╚ :1\. 8\@04┘$($%"
  1382. ═3╒9%($%,3"╨@2$%612!&54╪┴ &\?& $┌ ($?┘@./($9)4┼-4(%-(05!% )<?
  1383. ═┘╨-!,;+"*#8╤*3╔!,╦+"*#8╥*0#''^@#@╥ ╘+"╘╥-┬╨═,├8╠-├0╠,├8╠+3(╓
  1384. ═+#8╘+#(╓+#8╘+#8╘+"╘╥-┬╨╓-"╨╓- #╙'_(#@╥ ╘+"╘╥-┬╨═,├8╠,"╨╥-┬╨═
  1385. ═,├8╠,"╨╥-┬╨╓-"╨╨+"╘╥-┬╨╓-"╨╨ !<@_ .#(#,╠,"╨═,├8╠,╙(╠,38╠,╙(╠
  1386. ═,╙(╠+3$╓+#,╥+#,╥ !\@!@2#(#  ,┬!*!(\@4╘5#3╘┘$(%-(05!% $@@2╨1"
  1387. ═,;+"*#8╤*3╔",╦+"*#8╥*0!\($╨$@╥ ╘+"╘╤-2╨╙,"╨═,3(╠+3$╒+"╘╙,"╨═
  1388. ═,3(╠+34╫+"╘╙,"╨═,╥╨═-3$╠+38╠+3, ╦"!6!(,@-"╨╤-2╨╙,"╨═,3(╠-3$╠
  1389. ═+38╠+3,╠-3<╠+3,╨+"╘╙+#$╒+"╘╙,"╨═,3( ╪"!@!(,@-"╨╤-2╨╙,"╨═,3(╠
  1390. ═,34╠+3,╨+"╘╤,┬╨═,34╠+3,╨+"╘╤,┬╨═,34╠,╙ ╠+3$╥ "0┴:@2#(#<╠,34╠
  1391. ═+3,╨+"╘╤,┬╨╒-╥╨═,╙ ╠+3,╠,╙,╠+3,╨+#8╠,"╨═,╙ ╠,3(╠+3,╙+"╘╙,"╨╓
  1392. ═+"╘╒-╥╨═,╙ ╠+3, -┬%╠!(,@+3$╒+"╘╙,"╨═,3( 6╥%╘!(,@,╥╨╙,╥╨═,╙ ╠
  1393. ═,"╨╙,╥╨═,╙ ╠+30╠,╙─╠+3,╨+"╘╥ (,┴?@2#(#,╠+3,╙+"╘╙,"╨╨+"╘╙.2╨═
  1394. ═,╙ ╠+3(╠+3,╙+"╘╙,"╨═- "╧(8@$@╥ ╘+#8╠+3,╨+#,╠-┬╨═,╙ ╠+38╠,3@╠
  1395. ═+3,╨+"╘╘+#$╪+"╘╙,"╨╤ -\┴─@2#(#0╠+38╠+3,╨+#,╠+3$╪+"╘╙,"╨╤+"╘╤
  1396. ═."╨═,╙ ╠+30╠+38╠+3,╨+"╘╓  <┬╟ 2#(#,╠+34╫+"╘╙,"╨═,╥╨═,╙,╠+3,╨
  1397. ═+#8╠+34╤+"╘╤,┬╨═,╨ ╧(╩8$@╥ ╙+"╘╙,╥╨═,╙ ╠-┬╨═,34╠,╙ ╠+3$╥+"╘╒
  1398. ═,2╨═,3(╠+3, 4╥*╨!(,@,╥╨═,34╠,╙ ╠+3$╥+"╘╙,╥╨═,╙ ╠-┬╨╨+#8╠,3( 
  1399. ═=2*┌!(,@,╥╨╨+#8╠,3(╠+3,╙+"╘╙,"╨╓+# ╠+3,╨+#$╥ )─┬╤ 2#(#,╠,34╠
  1400. ═,╙ ╠+3$╥+"╘╤-2╨╙,"╨═,3(╠,"╨╓+#$╥ +╚┬╙@2#(#,╠,"╨═,╙ ╠,3(╠,╙,╠
  1401. ═+3,╨+#8╠,"╨╓+#$╥ -╨┬╓ 2#(#,╠,"╨╓+#$╥+#,╙+"╘╙,"╨╓+#$╒+#,╨+"╘╤
  1402. ═,@ !(^($@╥ ╙+#$╒+#,╨+"╘╤,┬╨╙,╥╨═,╙ ╠-┬╨╒,2╨═,3(╠+3, )┬/╠!(,@
  1403. ═,╥╨╙,╥╨═,╙ ╠-┬╨╒-╥╨═,╙ ╠+3,╠-3$╠+3$╥+"╘╙ "╪├]@2#(#  0",2!8\@
  1404. ═5$┴)4─0@4╘┴!4$4 5┬,3!4,╤╠╠(╚-├$╔.─,╥╠╠(╚-├(╔ ' ├% 6/(%┼/55(@
  1405. ═1$%402!'3╘53($┴%4─4 >"/0!╪,@, ",(╪@30┼"╥,├4╓╦"@┘╦#$╓╩├8╔ + ├
  1406. ═├!./($-(04┘'12!"14╤/5╥!43╥!03╘┼.5"!43╥!$051! ,(├├1.7-├4╠0├$┌
  1407. ═┼╙8╓+$(╥ .$├─┴.'3├╩70┼ ╠3├╔"4+)"4*╚╤.╚═.╠├"╟-3 ╒, #╔(┘<3╞2!.
  1408. ═  8─╟!.!2;(╤╔#.╠3├╩'4#╩+4+,╨╔╒"╥,├4╓╩┼  &"2╞$┘="4"╤0.─)0╠─)0
  1409. ═╩├$ (┬2╦$┘─┬+┬([ "╪─╠!.".╚─╒,#$╨ #\─╬┴.>,╙(╫-├@┌╟#╩,.╚     :
  1410. ═&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:
  1411. 0&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:
  1412.  
  1413. END
  1414.  
  1415. BEGIN 666 TABLES$8F80-$95FF
  1416. ═@(\  @,%!╨@*"╨╘/$!$3%!47&!─:&╤╨='1╪>'╤\@(" @(" @'╤\>'┴╘='!╠:
  1417. ═&1@7%103$1 /#0╠*" <% ╨( _╧╫[^?├╓]?/╤\._═[.╧╔┌.?╞┘>3├╪^+┬╪>'@
  1418. ═╪.#@╪.#@╪>'┬╪╬/├┘.7╞┘^├╔┌^╙═[_#╤\_7╓^/╟[_?╪ _╨    #_\" @(" ?
  1419. ═'╤╪>'1╘<&╤╚9&!<5%!,1$ \-"╨╚(!╨4# @#^_?╧┘^/;╒\_'╨[^╫╠┌^╟╚┘^;┼
  1420. ═┘./├╪╬+┴╪>#@╪.#@╪.#┴╪>+┬╪^/─┘>;╟┌.╟╦[.╫╧\/'╙]?;╪^?╧]_@ " ╨4'
  1421. ═" ╚+#0\0$1,4%1<8&1╚;'!╘='┴╪?'╥ @("  _____╨  (┬(┬(┬(├(╥,├(╥,├
  1422. ═(╥,─)"0─)"0─)"4┼)24┼)24┼)┬8╞)┬8╞)┬8╟)╥<╟)╥<╟*"@╚*"@╚*"─╔*2─╔
  1423. ═*2╚╩*┬╚╩*┬╠╦*╥╠╦*╥╨╠+"╨╠+"╘═+2╘═+┬╪╬+┬╪╬+╥\╧+╙ ╨,# ╨,3$╤,3$╥
  1424. ═,├(╥,╙,╙,╙0╘-#0╒-34╒-├8╓-├<╫-╙@╪.#@8&!@8&1─9&1─9&1─9&1─9&1─9
  1425. ═&1─9&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╠;&╤╠;&╤╠;&╤╠;&╤╠;&╤╨<'!╨<'!╨<'!╨<
  1426. ═'!╨<'1╘='1╘='1╘='1╘='1╪>'┴╪>'┴╪>'┴╪>'┴\?'╤\?'╤\?'╤\?(" @(" @
  1427. ═(" @(" ┴(2$┴(2$┴(2$┴(┬(┬(╧__     /____\ \   _╨#__╨    #_____
  1428. ═     /____\     _____╨    #_ /__     /_╨__\     _____╨    #_
  1429. ═____     /____\     _____╨    #_____     /____\     _____╨  
  1430. ═  #_____     /_╨                 0$! 0$! 0$" @(" @(# ╨,#! 0$
  1431. ═! 4%!04&!@8'!╨<(" @)"0─*"@╠+"╨╨,#0╘.#@\/$! 1$1(2$╤,4%!45%┴<7
  1432. ═&!@9&┴╚;'!╨='┴╪?(" ┴(┬,├)"4╞)┬<╚*2─╩*╥╨═+┬╪╧,#$╥,╙0╒-38╫.#─┌
  1433. ═.╙╨]/├] 04)#1$5&1╘┴)2─═-3─]045)35%976"╠╩*2─╚)╥8╞)20├(╥(┴(" ?
  1434. ═'┴╪='!╨;&┴╚9&!@7%╤85%104$╤,2$┴$1$! /#╨╪.#0╘,# ╠+"╨╚*"0─)" @(
  1435. ═!╨<'!@8&!04%!00$! 0# ╨,# @(" @(" 0$! 0$! 0$                 
  1436. ═              $! 0$! 0$! @(" @(" ╨,# ╨0$! 0%!04%!@8&!╨<'" @(
  1437. ═"0─)"@╚+"╨╠,# ╘-#@╪/#╤ 0$1$2$┴,3%!05%187%╤@8&1╚:&╤╨<'1╪>'╥ @
  1438. ═(2(├(╥0┼)┬8╟*"─╔*┬╠╠+2╪╬+╙ ╤,├,╘-34╓-╙@┘.├╠\/3╪_0$%"0╘1%1─=(
  1439. ═24╔+34┘/4%%24╒165╒@╦*┬─╔*"<╞)┬4─(╥,┬(2 @'╤╪>'1╨<&╤╚:&1@8%╤<6
  1440. ═%144%!,3$┴(1$1 0#╨\.#@╘-# ╨+"╨╠*"@─)"0@(" <'!╨8&!@4%!04$! 0$
  1441. ═ ╨,# ╨(" @(" @$! 0$! 0$!                               ! 0$!
  1442. ═ 0$! 0(" @(" @,# ╨,$! 0$!04%!08&!@<'!╨@(" ─)"0╚*"╨╠+# ╨-#0╪.
  1443. ═#╨\0$!$1$┴(3$╤04%146%╤<8&!─:&┴╠<'!╘>'┴\@("$┬(╥,─)28╞)╥@╔*2╚╦
  1444. ═+"╘╬+┬\╨,3(╙-#4╒-├<╪.3╚[/#╘^/╘ _/├╘\.╙╚┘.#<╓-34╘,╙(╤,"\╬+┬╘╠
  1445. ═*╥╚╔*2@╟)┬8┼)",├(┬$@(!\>'┴╘<'!╠:&┴─8&!<7%┴45%!03$╤(2$1$0$ \/
  1446. ═#@╪-#0╨,"╨╠+"@╚)"0─(" @'!╨<&!@8%!04%! 0$! ,# ╨," @(" @(! 0$!
  1447. ═ 0$! 0                               0$! 0$! 0$" @(" @(# ╨,#
  1448. ═! 0$! 4%!04&!@8'!╨<(" @)"0─*"@╠+"╨╨,#0╘.#@\/$! 1$1(2$╤,4%!45
  1449. ═%┴<7&!@9&┴╚;'!╨='┴╪?(" ┴(┬,├)"4╞)┬<╚*2─╩*╥╨═+┬╪╧,#$╥,╙0╒-38╫
  1450. ═.#─┌.╙╨]/├] /╙╪]/#╠┌.3@╫-├4╒-#,╥,3 ╧+┬╪═+"╠╩*2─╚)╥8╞)20├(╥(┴
  1451. ═(" ?'┴╪='!╨;&┴╚9&!@7%╤85%104$╤,2$┴$1$! /#╨╪.#0╘,# ╠+"╨╚*"0─)
  1452. ═" @(!╨<'!@8&!04%!00$! 0# ╨,# @(" @(" 0$! 0$! 0$             
  1453. ═ !╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:
  1454. ═&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:
  1455. ┼&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:&┴╚:
  1456.  
  1457. END
  1458.  
  1459.  
  1460. ********************************
  1461. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1462. *└╙TEPHEN└╩UDD└└└└└└└└└└└└└└└└└*
  1463. *└╟EORGE└╘AYLOR└└└└└└└└└└└└└└└└*
  1464. *└╙TARTED:└7/11/94└└└└└└└└└└└└└*
  1465. *└╞INISHED:└7/19/94└└└└└└└└└└└└*
  1466. *└V2.0└├OMPLETED:└12/17/94└└└└└*
  1467. *└V3.0└├OMPLETED:└3/20/95└└└└└└*
  1468. *└V3.1└├OMPLETED:└6/14/95└└└└└└*
  1469. *└V3.2└├OMPLETED:└6/15/95└└└└└└*
  1470. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1471. *└╫ELL,└IF└ALL└GOES└WELL└THIS└└*
  1472. *└PROGRAM└WILL└ROTATE└A└CUBE.└└*
  1473. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1474. *└V2.0└+└╬EW└AND└╔MPROVED!└└└└└*
  1475. *└╬OW└WITH└FASTER└ROUTINES,└└└└*
  1476. *└HIDDEN└SURFACES,└FILLED└└└└└└*
  1477. *└FACES,└AND└EXTRA└TOP└SECRET└└*
  1478. *└TEXT└MESSAGES!└└└└└└└└└└└└└└└*
  1479. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1480. *└V3.0└+└╞AST└CHUNKY└LINE└└└└└└*
  1481. *└ROUTINE.└└└└└└└└└└└└└└└└└└└└└*
  1482. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1483. *└V3.1└+└╟ENERAL└POLYGON└PLOT└└*
  1484. *└WITH└HIDDEN└FACES└(╪-PRODUCT)*
  1485. *└AND└ZOOM└FEATURE.└└└└└└└└└└└└*
  1486. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1487. *└V3.2└+└┼╧╥-BUFFER└FILLING└└└└*
  1488. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1489. *└╘HIS└PROGRAM└IS└INTENDED└TO└└*
  1490. *└ACCOMPANY└THE└ARTICLE└IN└└└└└*
  1491. *└├=╚ACKING,└╩UN.└95└ISSUE.└└└└*
  1492. *└╞OR└DETAILS└ON└THIS└PROGRAM,└*
  1493. *└READ└THE└ARTICLE!└└└└└└└└└└└└*
  1494. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1495. *└╫RITE└TO└US!└└└└└└└└└└└└└└└└└*
  1496. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1497. *└═YSELF└WHEN└YOUNG└DID└└└└└└└└*
  1498. *└EAGERLY└FREQUENT└└└└└└└└└└└└└*
  1499. *└─OCTOR└AND└╙AINT,└AND└HEARD└└*
  1500. *└GREAT└┴RGUMENT└└└└└└└└└└└└└└└*
  1501. *└└┴BOUT└IT└AND└ABOUT:└BUT└└└└└*
  1502. *└└EVERMORE└└└└└└└└└└└└└└└└└└└└*
  1503. *└├AME└OUT└BY└THE└SAME└─OOR└└└└*
  1504. *└AS└IN└╔└WENT.└└└└└└└└└└└└└└└└*
  1505. *└└└└-└╥UBAIYAT└└└└└└└└└└└└└└└└*
  1506. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1507. *└╘HOUGH└╔└SPEAK└WITH└THE└└└└└└*
  1508. *└TONGUES└OF└MEN└AND└OF└ANGLES└*
  1509. *└AND└HAVE└NOT└LOVE,└╔└AM└└└└└└*
  1510. *└BECOME└AS└SOUNDING└BRASS,└OR└*
  1511. *└A└TINKLING└CYMBAL.└└└└└└└└└└└*
  1512. *└└└└-└1└├ORINTHIANS└13└└└└└└└└*
  1513. *└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└*
  1514. *└╨.╙.└╘HIS└WAS└WRITTEN└USING└└*
  1515. *└└└└└└═ERLIN└128.└└└└└└└└└└└└└*
  1516. ********************************
  1517.  
  1518.  ╧╥╟ $8000
  1519.  
  1520. *└├ONSTANTS
  1521.  
  1522. ┬╒╞╞1 ┼╤╒ $3000 ;╞IRST└CHARACTER└SET
  1523. ┬╒╞╞2 ┼╤╒ $3800 ;╙ECOND└CHARACTER└SET
  1524. ┼╧╥┬╒╞ ┼╤╒ $4000 ;┼╧╥-BUFFER
  1525. ┬╒╞╞┼╥ ┼╤╒ $┴3 ;╨RESUMABLY└THE└TAPE└WON'T└BE└RUNNING
  1526. ╪1 ┼╤╒ $╞┬ ;╨OINTS└FOR└DRAWING└A└LINE
  1527. ┘1 ┼╤╒ $╞├ ;╘HESE└ZERO└PAGE└ADDRESSES
  1528. ╪2 ┼╤╒ $╞─ ;DON'T└CONFLICT└WITH└┬┴╙╔├
  1529. ┘2 ┼╤╒ $╞┼
  1530. ╧╠─╪ ┼╤╒ $╞─
  1531. ├╚╒╬╦ ┼╤╒ $╞┼
  1532. ─╪ ┼╤╒ $67 ;╘HIS└IS└SHARED└WITH└╘1└BELOW
  1533. ─┘ ┼╤╒ $68
  1534. ╘┼═╨1 ┼╤╒ $╞┬ ;╧F└COURSE,└COULD└CONFLICT└WITH└X1
  1535. ╘┼═╨2 ┼╤╒ $╞├ ;╘EMPORARY└VARIABLES
  1536. ┌╘┼═╨ ┼╤╒ $02 ;╒SED└FOR└BUFFER└SWAP.└└─ON'T└TOUCH.
  1537. ┌1 ┼╤╒ $22 ;╒SED└BY└MATH└ROUTINE
  1538. ┌2 ┼╤╒ $24 ;─ON'T└TOUCH└THESE└EITHER!
  1539. ┌3 ┼╤╒ $26
  1540. ┌4 ┼╤╒ $28
  1541. ╦ ┼╤╒ $┬6 ;├ONSTANT└USED└FOR└HIDDEN
  1542.    ;SURFACE└DETECTION└-└DON'T└TOUCH
  1543. ╚╔─┼ ┼╤╒ $┬5 ;┴RE└SURFACES└HIDDEN?
  1544. ╞╔╠╠ ┼╤╒ $50 ;┴RE└WE└USING└┼╧╥-FILL?
  1545. ┴╬╟═┴╪ ┼╤╒ 120 ;╘HERE└ARE└2*PI/ANGMAX└ANGLES
  1546.  
  1547. *└╓╔├
  1548.  
  1549. ╓═├╙┬ ┼╤╒ $─018
  1550. ┬╦╟╬─ ┼╤╒ $─020
  1551. ┬╧╥─┼╥ ┼╤╒ $─021
  1552. ╙╙╘┴╥╘ ┼╤╒ 1344 ;ROW└9└IN└SCREEN└MEMORY└AT└1024
  1553.  
  1554.  
  1555. *└╦ERNAL
  1556.  
  1557. ├╚╥╧╒╘ ┼╤╒ $╞╞─2
  1558. ╟┼╘╔╬ ┼╤╒ $╞╞┼4
  1559.  
  1560. *└╙OME└VARIABLES
  1561.  
  1562. ╟╠╧┬╪═╔╬ = $3╞ ;╘HESE└ARE└USED└IN└CLEARING└THE
  1563. ╟╠╧┬╪═┴╪ = $40 ;DRAWING└(GLOBAL)└BUFFER
  1564. ╟╠╧┬┘═╔╬ = $41
  1565. ╟╠╧┬┘═┴╪ = $42
  1566. ╠╧├╪═╔╬ = $57 ;╘HESE└ARE└USED└IN└CLEARING└THE
  1567. ╠╧├╪═┴╪ = $58 ;┼╧╥└(LOCAL)└BUFFER
  1568. ╠╧├┘═╔╬ = $59
  1569. ╠╧├┘═┴╪ = $60
  1570. ╨1╪ = $92 ;╘HESE└ARE└TEMPORARY└STORAGE
  1571. ╨1┘ = $93 ;╒SED└IN└PLOTTING└THE└PROJECTION
  1572. ╨1┌ = $94
  1573. ╨2╪ = $95 ;╘HEY└ARE└HERE└SO└THAT└WE
  1574. ╨2┘ = $96 ;DON'T└HAVE└TO└RECALCULATE└THEM.
  1575. ╨2┌ = $┴┼
  1576. ╨3╪ = $┴╞ ;╘HEY└MAKE└LIFE└EASY.
  1577. ╨3┘ = $┬0
  1578. ╨3┌ = $┬1 ;╫HY└ARE└YOU└LOOKING└AT└ME└LIKE└THAT?
  1579. ╨1╘ = $┬2 ;─ON'T└YOU└TRUST└ME?
  1580. ╨2╘ = $┬3
  1581. ╨3╘ = $┬4 ;╚AVING└ANOTHER└CHILD└WASN'T└MY└IDEA.
  1582. ╔╬─┼╪ = $51
  1583. ├╧╒╬╘╨╘╙ = $52
  1584. ┌╧╧═ = $71 ;┌OOM└FACTOR
  1585. ─╙╪ = $61 ;─╙╪└IS└THE└INCREMENT└FOR
  1586.    ;ROTATING└AROUND└X
  1587. ─╙┘ = $62 ;╙IMILAR└FOR└─╙┘,└─╙┌
  1588. ─╙┌ = $63
  1589. ╙╪ = $64 ;╘HESE└ARE└THE└ACTUAL└ANGLES└IN└X└Y└AND└Z
  1590. ╙┘ = $65
  1591. ╙┌ = $66
  1592. ╘1 = $67 ;╘HESE└ARE└USED└IN└THE└ROTATION
  1593. ╘2 = $68
  1594. ╘3 = $69 ;╙EE└THE└ARTICLE└FOR└MORE└DETAILS
  1595. ╘4 = $6┴
  1596. ╘5 = $6┬
  1597. ╘6 = $6├
  1598. ╘7 = $6─
  1599. ╘8 = $6┼
  1600. ╘9 = $6╞
  1601. ╘10 = $70
  1602. ┴11 = $┴5 ;╘HESE└ARE└THE└ELEMENTS└OF└THE└ROTATION└MATRIX
  1603. ┬12 = $┴6 ;╪┘┌
  1604. ├13 = $┴7
  1605. ─21 = $┴8 ;╘HE└NUMBER└DENOTES└(ROW,COLUMN)
  1606. ┼22 = $┴9
  1607. ╞23 = $┴┴
  1608. ╟31 = $┴┬
  1609. ╚32 = $┴├
  1610. ╔33 = $┴─
  1611.  
  1612.  
  1613. ***└═ACROS
  1614.  
  1615. ═╧╓┼ ═┴├
  1616.  ╠─┴ ]1
  1617.  ╙╘┴ ]2
  1618.  <<<
  1619.  
  1620. ╟┼╘╦┼┘ ═┴├  ;╫AIT└FOR└A└KEYPRESS
  1621. ╫┴╔╘ ╩╙╥ ╟┼╘╔╬
  1622.  ├═╨ #00
  1623.  ┬┼╤ ╫┴╔╘
  1624.  <<<
  1625.  
  1626. ─┼┬╒╟ ═┴├  ;╨RINT└A└CHARACTER
  1627.  ─╧└0└└;─ON'T└ASSEMBLE
  1628.  
  1629.  ╠─┴└#]1
  1630.  ╩╙╥└├╚╥╧╒╘
  1631.  ├╠╔
  1632.  >>> ╟┼╘╦┼┘ ;┴ND└WAIT└TO└CONTINUE
  1633.  ├═╨ #'S' ;═Y└SECRECT└SWITCH└KEY
  1634.  ┬╬┼ ╠1
  1635.  ╩╙╥ ├╠┼┴╬╒╨
  1636.  ╩═╨ ─╧╬┼
  1637. ╠1 ├═╨ #'X' ;═Y└SECRET└ABORT└KEY
  1638.  ┬╬┼ ─╧╬┼
  1639.  ╩═╨ ├╠┼┴╬╒╨
  1640.  ╞╔╬
  1641. ─╧╬┼ <<<
  1642.  
  1643. ─┼┬╒╟┴ ═┴├
  1644.  ─╧└0
  1645.  ╠─┴ ]1
  1646.  ╙╘┴ 1024
  1647.  ╞╔╬
  1648. ─╧╬┼┴ <<<
  1649.  
  1650. *-------------------------------
  1651.  
  1652.  ╠─┴ #$00
  1653.  ╙╘┴ ┬╦╟╬─
  1654.  ╙╘┴ ┬╧╥─┼╥
  1655.  ╠─┴ ╓═├╙┬
  1656.  ┴╬─ #%00001111 ;╙CREEN└MEMORY└TO└1024
  1657.  ╧╥┴ #%00010000
  1658.  ╙╘┴ ╓═├╙┬
  1659.  
  1660.  ╠─┘ #00
  1661.  ╠─┴ #<╘╘┼╪╘
  1662.  ╙╘┴ ╘┼═╨1
  1663.  ╠─┴ #>╘╘┼╪╘
  1664.  ╙╘┴ ╘┼═╨2
  1665.  ╩═╨ ╘╔╘╠┼
  1666. ╘╘┼╪╘ ╚┼╪ 9305111111 ;CLEAR└SCREEN,└WHITE,└CRSR└DN
  1667.  ╘╪╘ '└└└└└└└└└└└└└CUBE3D└V3.2',0D,0D
  1668.  ╘╪╘ '└└└└└└└└└└└└└└└└└└BY',0D
  1669.  ╚┼╪ 9╞ ;CYAN
  1670.  ╘╪╘ '└└└└STEPHEN└JUDD'
  1671.  ╚┼╪ 99
  1672.  ╘╪╘ '└└└└GEORGE└TAYLOR',0D,0D
  1673.  ╚┼╪ 9┬
  1674.  ╘╪╘ '└└CHECK└OUT└THE└JAN.└95└ISSUE└OF',0D
  1675.  ╚┼╪ 96
  1676.  ╘╪╘ '└└C=HACKING'
  1677.  ╚┼╪ 9┬
  1678.  ╘╪╘ '└FOR└MORE└DETAILS!',0D
  1679.  ╚┼╪ 0─1─1─9┼12
  1680.  ╘╪╘ 'F1/F2',92
  1681.  ╘╪╘ '└-└INC/DEC└X-ROTATION',0D
  1682.  ╚┼╪ 1─1─12
  1683.  ╘╪╘ 'F3/F4',92
  1684.  ╘╪╘ '└-└INC/DEC└Y-ROTATION',0D
  1685.  ╚┼╪ 1─1─12
  1686.  ╘╪╘ 'F5/F6',92
  1687.  ╘╪╘ '└-└INC/DEC└Z-ROTATION',0D
  1688.  ╚┼╪ 1─1─12
  1689.  ╘╪╘ '└F7└└',92
  1690.  ╘╪╘ '└-└RESET',0D
  1691.  ╚┼╪ 1─1─12
  1692.  ╘╪╘ '└+/-└',92
  1693.  ╘╪╘ '└-└ZOOM└IN/OUT',0D
  1694.  ╚┼╪ 1─1─12
  1695.  ╘╪╘ '└└H└└',92
  1696.  ╘╪╘ '└-└TOGGLE└HIDDEN└SURFACES',0D
  1697.  ╚┼╪ 1─1─12
  1698.  ╘╪╘ 'SPACE',92
  1699.  ╘╪╘ '└-└TOGGLE└SURFACE└FILLING',0D,0D
  1700.  ╘╪╘ '└└PRESS└Q└TO└QUIT',0D
  1701.  ╚┼╪ 0─05
  1702.  ╘╪╘ '└└└└└└PRESS└ANY└KEY└TO└BEGIN',0D
  1703.  ╚┼╪ 00
  1704. ╘╔╘╠┼ ╠─┴ (╘┼═╨1),┘
  1705.  ┬┼╤ :├╧╬╘
  1706.  ╩╙╥ ├╚╥╧╒╘
  1707.  ╔╬┘
  1708.  ┬╬┼ ╘╔╘╠┼
  1709.  ╔╬├ ╘┼═╨2
  1710.  ╩═╨ ╘╔╘╠┼
  1711. :├╧╬╘ >>> ╟┼╘╦┼┘
  1712.  
  1713. ****└╙ET└UP└TABLES(?)
  1714.  
  1715. *└╘ABLES└ARE└CURRENTLY└SET└UP└IN└┬┴╙╔├
  1716. *└AND└BY└THE└ASSEMBLER.
  1717.  
  1718. ╘┴┬╠┼╙ ╠─┴ #>╘═┴╘╚1
  1719.  ╙╘┴ ┌1+1
  1720.  ╙╘┴ ┌2+1
  1721.  ╠─┴ #>╘═┴╘╚2
  1722.  ╙╘┴ ┌3+1
  1723.  ╙╘┴ ┌4+1
  1724.  
  1725. ****└├LEAR└SCREEN└AND└SET└UP└"BITMAP"
  1726. ╙┼╘╒╨ ╠─┴ #$01 ;╫HITE
  1727.  ╙╘┴ $─021 ;╘HIS└IS└DONE└SO└THAT└OLDER
  1728.  ╠─┴ #147 ;MACHINES└WILL└SET└UP
  1729.  ╩╙╥ ├╚╥╧╒╘
  1730.  ╠─┴ #$00 ;CORRECTLY
  1731.  ╙╘┴ $─021
  1732.  ╠─┴ #<╙╙╘┴╥╘
  1733.  ┴─├ #12 ;╘HE└GOAL└IS└TO└CENTER└THE└GRAPHICS
  1734.  ╙╘┴ ╘┼═╨1 ;├OLUMN└12
  1735.  ╠─┴ #>╙╙╘┴╥╘ ;╥OW└9
  1736.  ╙╘┴ ╘┼═╨1+1 ;╙╙╘┴╥╘└POINTS└TO└ROW└9
  1737.  ╠─┴ #00
  1738.  ╠─┘ #00
  1739.  ╠─╪ #00 ;X└WILL└COUNT└16└ROWS└FOR└US
  1740.  ├╠├
  1741.  
  1742. :╠╧╧╨ ╙╘┴ (╘┼═╨1),┘
  1743.  ╔╬┘
  1744.  ┴─├ #16
  1745.  ┬├├ :╠╧╧╨
  1746.  ├╠├
  1747.  ╠─┴ ╘┼═╨1
  1748.  ┴─├ #40 ;╬EED└TO└ADD└40└TO└THE└BASE└POINTER
  1749.  ╙╘┴ ╘┼═╨1 ;╘O└JUMP└TO└THE└NEXT└ROW
  1750.  ╠─┴ ╘┼═╨1+1
  1751.  ┴─├ #00 ;╘AKE└CARE└OF└CARRIES
  1752.  ╙╘┴ ╘┼═╨1+1
  1753.  ╠─┘ #00
  1754.  ╔╬╪
  1755.  ╘╪┴  ;╪└IS└ALSO└AN└INDEX└INTO└THE└CHARACTER└NUMBER
  1756.  ├╨╪ #16
  1757.  ┬╬┼ :╠╧╧╨ ;╬EED└TO└DO└IT└16└TIMES
  1758.  
  1759. ****└├LEAR└BUFFERS
  1760.  
  1761.  ╠─┴ #<┬╒╞╞1
  1762.  ╙╘┴ ┬╒╞╞┼╥
  1763.  ╠─┴ #>┬╒╞╞1
  1764.  ╙╘┴ ┬╒╞╞┼╥+1
  1765.  ╠─┘ #$00
  1766.  ╠─╪ #24 ;┴SSUMING└ALL└THREE└BUFFERS└ARE
  1767.  ╠─┴ #$00 ;BACK-TO-BACK
  1768. :┬╠╧╧╨ ╙╘┴ (┬╒╞╞┼╥),┘
  1769.  ╔╬┘
  1770.  ┬╬┼ :┬╠╧╧╨
  1771.  ╔╬├ ┬╒╞╞┼╥+1
  1772.  ─┼╪
  1773.  ┬╬┼ :┬╠╧╧╨
  1774.  
  1775. ****└╙ET└UP└BUFFERS
  1776.  
  1777.  ╠─┴ #<┬╒╞╞1
  1778.  ╙╘┴ ┬╒╞╞┼╥
  1779.  ╠─┴ #>┬╒╞╞1
  1780.  ╙╘┴ ┬╒╞╞┼╥+1
  1781.  ╙╘┴ ┌╘┼═╨ ;ZTEMP└WILL└MAKE└LIFE└SIMPLE└FOR└US
  1782.  ╠─┴ ╓═├╙┬
  1783.  ┴╬─ #%11110001 ;╙TART└HERE└SO└THAT└SWAP└BUFFERS└WILL└WORK└RIGHT
  1784.  ╧╥┴ #%00001110
  1785.  ╙╘┴ ╓═├╙┬
  1786.  
  1787. ****└╙ET└UP└INITIAL└VALUES
  1788.  
  1789. ╔╬╔╘ ╠─┴ #00
  1790.  ╙╘┴ ╠╧├╪═╔╬
  1791.  ╙╘┴ ╠╧├╪═┴╪
  1792.  ╙╘┴ ╠╧├┘═╔╬
  1793.  ╙╘┴ ╠╧├┘═┴╪
  1794.  ╙╘┴ ╟╠╧┬╪═╔╬
  1795.  ╙╘┴ ╟╠╧┬┘═╔╬
  1796.  ╙╘┴ ╟╠╧┬╪═┴╪
  1797.  ╙╘┴ ╟╠╧┬┘═┴╪
  1798.  ╙╘┴ ─╙╪
  1799.  ╙╘┴ ─╙┘
  1800.  ╙╘┴ ─╙┌
  1801.  ╙╘┴ ╙╪
  1802.  ╙╘┴ ╙┘
  1803.  ╙╘┴ ╙┌
  1804.  ╙╘┴ ╞╔╠╠
  1805.  ╠─┴ #01
  1806.  ╙╘┴ ╚╔─┼
  1807.  ╠─┴ #64
  1808.  ╙╘┴ ┌╧╧═
  1809.  
  1810. *-------------------------------
  1811. *└═AIN└LOOP
  1812.  
  1813. ****└╟ET└KEYPRESS
  1814.  
  1815. ═┴╔╬
  1816.  ├╠╔
  1817. ╦╨╥┼╙╙ ╩╙╥ ╟┼╘╔╬
  1818.  ├═╨ #133 ;╞1?
  1819.  ┬╬┼ :╞2
  1820.  ╠─┴ ─╙╪
  1821.  ├═╨ #┴╬╟═┴╪/2 ;╬O└MORE└THAN└PI
  1822.  ┬┼╤ :├╧╬╘1
  1823.  ╔╬├ ─╙╪ ;OTHERWISE└INCREASE└X-ROTATION
  1824.  ╩═╨ :├╧╬╘
  1825. :╞2 ├═╨ #137 ;╞2?
  1826.  ┬╬┼ :╞3
  1827.  ╠─┴ ─╙╪
  1828.  ┬┼╤ :├╧╬╘1
  1829.  ─┼├ ─╙╪
  1830.  ╩═╨ :├╧╬╘
  1831. :╞3 ├═╨ #134
  1832.  ┬╬┼ :╞4
  1833.  ╠─┴ ─╙┘
  1834.  ├═╨ #┴╬╟═┴╪/2
  1835.  ┬┼╤ :├╧╬╘1
  1836.  ╔╬├ ─╙┘ ;╔NCREASE└Y-ROTATION
  1837.  ╩═╨ :├╧╬╘
  1838. :╞4 ├═╨ #138
  1839.  ┬╬┼ :╞5
  1840.  ╠─┴ ─╙┘
  1841.  ┬┼╤ :├╧╬╘1
  1842.  ─┼├ ─╙┘
  1843.  ╩═╨ :├╧╬╘
  1844. :╞5 ├═╨ #135
  1845.  ┬╬┼ :╞6
  1846.  ╠─┴ ─╙┌
  1847.  ├═╨ #┴╬╟═┴╪/2
  1848.  ┬┼╤ :├╧╬╘1
  1849.  ╔╬├ ─╙┌ ;Z-ROTATION
  1850.  ╩═╨ :├╧╬╘
  1851. :╞6 ├═╨ #139
  1852.  ┬╬┼ :╞7
  1853.  ╠─┴ ─╙┌
  1854.  ┬┼╤ :├╧╬╘1
  1855.  ─┼├ ─╙┌
  1856.  ╩═╨ :├╧╬╘
  1857. :╞7 ├═╨ #136
  1858.  ┬╬┼ :╨╠╒╙
  1859.  ╩═╨ ╔╬╔╘
  1860. :├╧╬╘1 ╩═╨ :├╧╬╘
  1861. :╨╠╒╙ ├═╨ #'+'
  1862.  ┬╬┼ :═╔╬╒╙
  1863.  ╔╬├ ┌╧╧═ ;┬AH,└WHO└NEEDS└ERROR└CHECKING?
  1864.  ╔╬├ ┌╧╧═
  1865.  ╩═╨ :├╧╬╘
  1866. :═╔╬╒╙ ├═╨ #'-'
  1867.  ┬╬┼ :╚
  1868.  ─┼├ ┌╧╧═
  1869.  ─┼├ ┌╧╧═
  1870.  ┬╨╠ :├╧╬╘
  1871.  ╔╬├ ┌╧╧═
  1872.  ╔╬├ ┌╧╧═
  1873.  ╩═╨ :├╧╬╘
  1874. :╚ ├═╨ #'H'
  1875.  ┬╬┼ :╙╨┴├┼
  1876.  ╠─┴ ╚╔─┼
  1877.  ┼╧╥ #$01
  1878.  ╙╘┴ ╚╔─┼
  1879.  ╩═╨ :├╧╬╘
  1880. :╙╨┴├┼ ├═╨ #'└'
  1881.  ┬╬┼ :╤
  1882.  ╠─┴ ╞╔╠╠
  1883.  ┼╧╥ #$01
  1884.  ╙╘┴ ╞╔╠╠
  1885.  ╩═╨ :├╧╬╘
  1886. :╤ ├═╨ #'Q' ;Q└QUITS
  1887.  ┬╬┼ :├╧╬╘
  1888.  ╩═╨ ├╠┼┴╬╒╨
  1889.  
  1890. :├╧╬╘ ╙┼╔  ;╙PEED└THINGS└UP└A└BIT
  1891.  
  1892. ****└╒PDATE└ANGLES
  1893.  
  1894. ╒╨─┴╘┼ ├╠├
  1895.  ╠─┴ ╙╪
  1896.  ┴─├ ─╙╪
  1897.  ├═╨ #┴╬╟═┴╪ ;┴RE└WE└>=└MAXIMUM└ANGLE?
  1898.  ┬├├ :├╧╬╘1
  1899.  ╙┬├ #┴╬╟═┴╪ :╔F SO, RESET
  1900. :├╧╬╘1 ╙╘┴ ╙╪
  1901.  ├╠├
  1902.  ╠─┴ ╙┘
  1903.  ┴─├ ─╙┘
  1904.  ├═╨ #┴╬╟═┴╪
  1905.  ┬├├ :├╧╬╘2
  1906.  ╙┬├ #┴╬╟═┴╪ ;╙AME└DEAL
  1907. :├╧╬╘2 ╙╘┴ ╙┘
  1908.  ├╠├
  1909.  ╠─┴ ╙┌
  1910.  ┴─├ ─╙┌
  1911.  ├═╨ #┴╬╟═┴╪
  1912.  ┬├├ :├╧╬╘3
  1913.  ╙┬├ #┴╬╟═┴╪
  1914. :├╧╬╘3 ╙╘┴ ╙┌
  1915.  
  1916. ****└╥OTATE└COORDINATES
  1917.  
  1918. ╥╧╘┴╘┼
  1919.  
  1920. ***└╞IRST,└CALCULATE└T1,T2,...,T10
  1921.  
  1922. **└╘WO└MACROS└TO└SIMPLIFY└OUR└LIFE
  1923. ┴──┴ ═┴├  ;┴DD└TWO└ANGLES└TOGETHER
  1924.  ├╠├
  1925.  ╠─┴ ]1
  1926.  ┴─├ ]2
  1927.  ├═╨ #┴╬╟═┴╪ ;╔S└THE└SUM└>└2*PI?
  1928.  ┬├├ ─╧╬┼
  1929.  ╙┬├ #┴╬╟═┴╪ ;╔F└SO,└SUBTRACT└2*PI
  1930. ─╧╬┼ <<<
  1931.  
  1932. ╙╒┬┴ ═┴├  ;╙UBTRACT└TWO└ANGLES
  1933.  ╙┼├
  1934.  ╠─┴ ]1
  1935.  ╙┬├ ]2
  1936.  ┬├╙ ─╧╬┼
  1937.  ┴─├ #┴╬╟═┴╪ ;╧OPS,└WE└NEED└TO└ADD└2*PI
  1938. ─╧╬┼ <<<
  1939.  
  1940. **└╬OW└CALCULATE└T1,T2,ETC.
  1941.  
  1942.  >>> ╙╒┬┴,╙┘;╙┌
  1943.  ╙╘┴ ╘1 ;T1=SY-SZ
  1944.  >>> ┴──┴,╙┘;╙┌
  1945.  ╙╘┴ ╘2 ;T2=SY+SZ
  1946.  >>> ┴──┴,╙╪;╙┌
  1947.  ╙╘┴ ╘3 ;T3=SX+SZ
  1948.  >>> ╙╒┬┴,╙╪;╙┌
  1949.  ╙╘┴ ╘4 ;T4=SX-SZ
  1950.  >>> ┴──┴,╙╪;╘2
  1951.  ╙╘┴ ╘5 ;T5=SX+T2
  1952.  >>> ╙╒┬┴,╙╪;╘1
  1953.  ╙╘┴ ╘6 ;T6=SX-T1
  1954.  >>> ┴──┴,╙╪;╘1
  1955.  ╙╘┴ ╘7 ;T7=SX+T1
  1956.  >>> ╙╒┬┴,╘2;╙╪
  1957.  ╙╘┴ ╘8 ;T8=T2-SX
  1958.  >>> ╙╒┬┴,╙┘;╙╪
  1959.  ╙╘┴ ╘9 ;T9=SY-SX
  1960.  >>> ┴──┴,╙╪;╙┘
  1961.  ╙╘┴ ╘10 ;T10=SX+SY
  1962.  
  1963. *└┼T└VOILA!
  1964.  
  1965. ***└╬EXT,└CALCULATE└┴,┬,├,...,╔
  1966.  
  1967. **└┴NOTHER└USEFUL└LITTLE└MACRO
  1968. ─╔╓2 ═┴├  ;─IVIDE└A└SIGNED└NUMBER└BY└2
  1969. ;╔T└IS└ASSUMED└THAT└THE└NUMBER
  1970.  ┬╨╠ ╨╧╙ ;IS└IN└THE└ACCUMULATOR
  1971.  ├╠├
  1972.  ┼╧╥ #$╞╞ ;╫E└NEED└TO└UN-NEGATIVE└THE└NUMBER
  1973.  ┴─├ #01 ;BY└TAKING└IT'S└COMPLEMENT
  1974.  ╠╙╥  ;DIVIDE└BY└TWO
  1975.  ├╠├
  1976.  ┼╧╥ #$╞╞
  1977.  ┴─├ #01 ;═AKE└IT└NEGATIVE└AGAIN
  1978.  ╩═╨ ─╧╬┼─╔╓
  1979. ╨╧╙ ╠╙╥  ;╬UMBER└IS└POSITIVE
  1980. ─╧╬┼─╔╓ <<<
  1981.  
  1982. ═╒╠2 ═┴├  ;═ULTIPLY└A└SIGNED└NUMBER└BY└2
  1983.  ┬╨╠ ╨╧╙═
  1984.  ├╠├
  1985.  ┼╧╥ #$╞╞
  1986.  ┴─├ #$01
  1987.  ┴╙╠
  1988.  ├╠├
  1989.  ┼╧╥ #$╞╞
  1990.  ┴─├ #$01
  1991.  ╩═╨ ─╧╬┼═╒╠
  1992. ╨╧╙═ ┴╙╠
  1993. ─╧╬┼═╒╠ <<<
  1994.  
  1995.